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Come usare 
questa guida 


Questo libro vuole essere un riferimento rapido per tutti i 
comandi, le procedure e gli elementi del codice di Visual 
Basic. Data questa premessa, non si pensi di trovare qui 
quelle informazioni altamente specifiche per le procedu- 
re o i comandi che verranno utilizzati molto raramente. 


Questo non è un libro da leggere sequenzialmente dalla 
prima all’ultima pagina (non è un romanzo) e, pertanto, 
per reperire un argomento specifico si faccia riferimento 
al sommario, al glossario finale o all’indice analitico. Se 
non si è sicuri di quale posizione di codice si ha necessità, 
si passi direttamente alla sezione che si presume tratti del- 
l'argomento desiderato e se ne scorra il contenuto. Lo sco- 
po finale di questa guida è quello di assistere e aiutare 
l'utente nella creazione dei propri programmi e di chiari- 
re rapidamente i concetti della programmazione in Visual 
Basic. In questo modo si potrà subito procedere alla crea- 
zione dei propri programmi. 
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VINI Contenuto del libro 


Contenuto del libro 


Questa guida è stata suddivisa in undici sezioni tematiche, nelle 
quali si potranno reperire rapidamente gli argomenti di cui si ha 
necessità. 


+ 


Parte I - Concetti fondamentali di Visual Basic. Vengono qui 
fornite tutte le informazioni per operare con l’ambiente di 
programmazione di Visual Basic 6, per “costruire” un’appli- 
cazione, per usare le varie finestre e,in linea generale, come 
interagire con l’interfaccia Visual Basic.In questa parte ven- 
gono anche introdotti alcuni concetti e termini essenziali 
(quali, per esempio, l’enunciato Print) che si ritroveranno 
anche nelle altre pagine del libro. 


Parte II - Controlli semplici. Questa parte è dedicata a una 
descrizione dei controlli di tipo più semplice, il cui scopo 
è quello di consentire, all'utilizzatore finale dell’applica- 
zione, di inserire, per esempio, propri dati o di visualizzare 
elementi testuali. 


Parte III - Classi e tipi di dati. Si descrivono qui i moduli di 
classe (.CLS) e i vari tipi di dati messi a disposizione da 
Visual Basic e si indica come creame di propri. Si analiz- 
zeranno, inoltre, i vari operatori che consentiranno di con- 
frontare i diversi elementi di Visual Basic. 


Parte IV - Le finestre di dialogo. Questa parte è dedicata 
alla descrizione delle varie finestre di dialogo che potran- 
no essere create per facilitare l'interazione fra il program- 
ma che viene “costruito” e l'utente che dovrà utilizzarlo. 


Parte V - Controlli avanzati. Contiene le informazioni rela- 
tive ai controlli di tipo avanzato, alcuni dei quali sono di- 
sponibili solo nelle edizioni “Professional” e “Enterprise” di 
Visual Basic 6. 


Parte VI - Gestione degli errori. Si tratta di un riferimento 
rapido su come indicare al programma di prendere le pro- 
prie decisioni e su come gestire eventuali errori. 


Parte VII - Funzioni e procedure. Questa parte contiene 
tutto ciò che è necessario sapere per inserire piccoli pro- 
grammi all’interno di programmi più complessi. 


Parte VIII - Manipolazione delle stringhe. Si spiega come 
usare ed estrarre parti di stringhe di testo. 


Parte IX - Gestione di form e MDI. In questa parte vengono 
presi in considerazione i form e l’MDI (Multiple Document 
Interface). 


Convenzioni adottate XK 


+ Parte X- Manipolazione e accesso alle matrici (array). Si 
prendono in esame le matrici multidimensionali e si de- 
scrive come inserirvi o richiamarne dati. 


+ Parte XI - Uso dei cicli. Questa parte finale si occupa della 
creazione di cicli per l’iterazione dei compiti richiesti a un 
programma e si indica come sia possibile interrompere un 
ciclo nel caso in cui venga soddisfatta una condizione par- 
ticolare. 


+ Glossario. Contiene un elenco di termini tecnici, associa- 
ti a un breve testo descrittivo, correlati all’uso di Visual Ba- 
sic 6. 


Convenzioni adottate 


Per facilitare la lettura delle informazioni riportate nella guida, 
sono state adottate alcune convenzioni. 


Quando viene richiesto di scrivere qualcosa all’interno di un pas- 
so di una procedura numerata, il testo da digitare verrà riportato 
in grassetto. Quanto indicato dovrà essere scritto esattamente 
come viene proposto.In varie occasioni vengono proposte sequen- 
ze procedurali numerate che contengono i passi sequenziali da 
intraprendere per eseguire quanto richiesto. 


1. passi delle sequenze procedurali vengono sempre inseri- 
ti in elenchi numerati. 


2. Siraccomanda di eseguire i passi della procedura nell’or- 
dine proposto. 


3. Si concluda la procedura sequenziale come proposto. 


In altre occasioni, invece, vengono utilizzati elenchi puntati, simili 
a quello seguente. 


+ Alcune di queste procedure prevedono operazioni che po- 
tranno essere eseguite in un ordine qualsiasi. 


+ Altre volte gli elenchi puntati riportano solo una serie di 
informazioni descrittive. 


Le linee di codice vengono sempre proposte con un carattere a 
spaziatura fissa diverso dal testo corrente, assumendo un aspetto 
simile al seguente. 


[You | I] Love NomeCosa 
nomeElemento [([persona])] As tipo 
[nomeElemento [([persona])] As tipo] 


X 


Convenzioni adotatte 


End Love 

Ciò che nel codice viene riportato in grassetto rappresenta quanto 
dovrà essere scritto (esattamente come viene proposto), a meno 
che, come nel caso di [You ! 1] della prima riga dell'esempio, la 
richiesta di digitazione venga separata dal simbolo |. In questo 
caso, si ha una possibilità di scelta fra le alternative proposte. Le 
varie voci del codice non sono altro che nomi che il programma- 
tore dovrà assegnare ai corrispondenti elementi del codice. Sem- 
pre prendendo in considerazione l'esempio sopra proposto, 
NomeCosa potrebbe essere sostituito da Frutta.La parte di codice 
racchiusa fra parentesi quadre, [ ],è da considerarsi facoltativa. 


Spesso, la sintassi di una voce è molto più chiara dopo che la si 
sarà inserita in un esempio reale e, pertanto, non si abbia alcuna 
esitazione nell’utilizzare i vari esempi proposti, anche se questi, a 
prima vista, non appaiono immediatamente comprensibili. 


La maggior parte delle voci descritte nel corso del libro vengono 
sempre associate a una breve descrizione della loro operatività, 
alla sintassi corrispondente e a un esempio pratico. Molte voci, 
inoltre, prevedono la presenza di tabelle che riassumono gli argo- 
menti ammissibili.Alcuni dei programmi di esempio vengono ac- 
compagnati da figure in modo da mostrare esattamente cosa ci si 
deve aspettare. 


Infine, l'indicazione Vedi anche: rimanda a una particolare se- 
zione o paragrafo del libro. È una sorta di riferimento incrociato 
per integrare quanto descritto nelle righe di testo precedenti. 


Quando viene riportato un indirizzo Internet o un URL, questo 
apparirà in carattere a spaziatura fissa (per esempio: http: // 
www.dummies.com) e, inoltre, quando questo appare alla fine di 
una frase o di un paragrafo, in base alle regole di composizione, 
verrà seguito da un punto (.) conclusivo della frase o del paragra- 
fo stessi.Si raccomanda, in questo caso, di scrivere l'indirizzo sen- 
za il punto finale. 


La sequenza di selezione di un comando da menu viene riportata 
con il nome del menu (completo di lettera sottolineata) seguito 
dal simbolo © e, quindi, dal comando richiesto. Per esempio, l’in- 
dicazione File © Salva col nome richiede l'apertura del menu File 
e la successiva attivazione del comando Salva col nome. Se un 
comando genera l'apertura di un sottomenu per selezionare una 
voce ulteriore, anche quest’ultima verrà preceduta dal simbolo © 
(per esempio: File © Nuovo © Browser). 


Alcuni tasti vengono rappresentati graficamente,in conformità ad 
altre guide della stessa collana. 


Icone utilizzate XI 


*+  #@ indica Backspace ovvero il tasto posto nell’angolo su- 
periore destro della parte principale della tastiera. 


+ 


+ indica Invio. 


+ T-le indicanoitasti per lo spostamento del cursore 
(o tasti freccia posti in basso tra la tastiera principale e il 
tastierino numerico). Una copia di questi tasti si trova an- 
che sul tastierino numerico. 


+ © (Maiusc) indica il tasto che deve essere premuto e man- 
tenuto tale per inserire caratteri maiuscoli. 


+ Pag T (Pag Su) indica il tasto corrispondente posto tra la 
tastiera principale e il tastierino numerico (che contiene, 
tra l’altro, una copia del tasto). 


+ Pag l(PagGiù) indica il tasto corrispondente posto tra la 
tastiera principale e il tastierino numerico (che contiene, 
tra l’altro, una copia di tale tasto). 


Quando è necessario premere e mantenere premuto un tasto e 
successivamente premerne un secondo (e in alcuni casì un ter- 
zo) tale combinazione viene riportata indicando il primo tasto, 
un segno “+” e quindi il tasto successivo. Per esempio, la notazione 
Ctrl+N indica di premere e mantenere premuto il tasto Ctrl, pre- 
mere il tasto “N” e rilasciare il tasto Ctrl. 


Il mouse è dotato, in genere, di due pulsanti: uno primario (di so- 
lito identificato con quello sinistro) e uno secondario (di solito, 
quello destro).Quando si richiede di fare clic, si intende premere 
e rilasciare rapidamente il pulsante primario del mouse. Si utilizzi 
il pulsante secondario solo quando indicato, poiché il suo uso 
attiva alcune funzioni particolari (per esempio, la comparsa dei 
menu contestuali). 


I messaggi emessi dall’applicazione e visualizzati sullo schermo 
vengono riportati utilizzando un carattere a spaziatura fissa, il ca- 
rattere MCPdigital. 


Icone utilizzate 


Tutti i libri che trattano di computer e applicazioni in genere pre- 
vedono ormai l’uso di una serie di icone (piccole immagini a cor- 
redo del testo) per richiamare l’attenzione del lettore su paragrafi 
particolari.Questa guida non si discosta da tale filosofia e, pertan- 
to, è bene spiegare il significato delle icone utilizzate. 


ANI 


Icone utilizzate 


Quanto viene associato a questa icona rappresenta e descrive l’uso 
di un elemento Visual Basic. 


Con questa icona si contrassegnano gli esempi di elementi Visual 
Basic che possono essere utilizzati per la creazione di un program- 
ma reale. 


Con questa icona si segnala un paragrafo che contiene un sugge- 
rimento per eseguire un'operazione (di solito un'alternativa a 
quanto si sta eseguendo). 


I paragrafi associati a questa icona contengono informazioni da 
valutare con particolare attenzione poiché potrebbero generare 
situazioni di tipo distruttivo! 


Concetti fondamentali 
di Visual Basic 


In questa parte vengono presi in esame gli elementi e le 
operazioni fondamentali che si devono conoscere per usa- 
re Visual Basic. Sia che si conosca già l'ambiente di pro- 
grammazione, sia nel caso in cui si sia un principiante, in 
queste pagine iniziali si troveranno molte soluzioni per evi- 
tare di dover rimanere troppe ore davanti a un monitor. 


Argomenti trattati 


v Inserimento, spostamento, modifica 
ed eliminazione di menu e sottomenu 


v Disegno, allineamento, spostamento, copia, 
incolla, eliminazione e personalizzazione 
di controlli 


v Uso della finestra Immediata 


v Uso delle regole per l’assegnazione dei nomi 
in Visual Basic 


v Integrazione con Visual Studio 
v Le finestre Progetto e Proprietà 


v Operazioni sui file di progetto 


2° Aggiunta di menu 


Aggiunta di menu 


L'inserimento di un menu in un form è un'operazione particolar 
mente facile: si proceda come segue. 


1. Si faccia clic con il pulsante destro del mouse all’interno 
del form.Viene aperto un menu di scelta rapida. 


2. Si faccia clic su Menu Editor. 


la Progetto] - Mictosott Veval Basic [progettazione] MEI 
io Mita Givi) rogo Fame [Db El Guy Dir Gusti Aognte (Funara È > n= 
USE E Bledel), | ME ERARN do 24 4600 x 3600 


Editordi menù [x] 


x 8a rg ce e | 
Re Pel = 


Nei paragrafi successivi verrà descritto più dettagliatamente come 
sia possibile utilizzare la finestra Menu Editor per eseguire le ope- 
razioni più comuni. 


Ricordare. Un nome di menu (o menu) viene visualizzato all’in- 
terno della Barra dei menu che si sviluppa orizzontalmente im- 
mediatamente sotto la Barra del titolo della finestra. Un comando 
di menu (0 voce di menu) è una delle voci che vengono visualiz- 
zate quando il menu viene aperto. 


Creazione di una nuova voce di menu 
Per creare un nuovo menu si proceda come segue. 


1. Nella casella Caption si scriva il testo da associare alla voce 
di menu che si desidera creare. Mentre si scrive la nuova 
voce, si inserisca il simbolo “&” prima del carattere che si 
desidera appaia sottolineato, per identificarlo come caratte- 
re per l'apertura rapida del menu stesso. Per esempio, se nel- 


Aggiunta di menu 3 


la casella si scrivesse &File la voce di menu verrebbe ripor- 
tata come File, consentendo, così, di aprire il menu con la 
semplice pressione di Alt+F. 


Nella casella di testo Name si scriva il nome da assegnare 
alla voce di menu.Di solito, le convenzioni prevedono l’indi- 
cazione del nome del menu preceduto dalle lettere mnu. 


Per aggiungere altre voci di menu, si faccia clic sul pulsante di co- 
mando Successivo o su quello Inserisci e si ripeta la procedura 
sopra riportata. 


Creazione dî un comando di un menu 


Per inserire il primo menu, si proceda come segue. 


l. 


Si faccia clic sul pulsante che riporta una freccia rivolta ver 
so destra (quello posto sotto la casella di controllo dell’op- 
zione Checked) per “scendere di un livello” nella gerarchia 
di creazione dei menu e dei relativi comandi. 


Nella casella Caption si scriva il testo che identifica il co- 
mando che si sta creando, utilizzando, prima della lettera 
che dovrà apparire sottolineata, il simbolo “&”. Per esempio, 
se si scrivesse &Esci,il comando creato assumerebbe la for- 
ma Esci, consentendo così all'utente di premere semplice- 
mente il tasto “E” per eseguire il comando. 


Nella casella Name si scriva il nome del comando di menu. 
Di solito, per convenzione, tale nome viene sempre prece- 
duto dalle tre lettere mnu. 


Per creare altri comandi di un menu, si faccia clic sul pulsante di 
comando Successivo o su quello Inserisci e si esegua la procedura 
sopra indicata. 


Per inserire in un menu una riga separatrice peri vari gruppi 
di comandi nella casella Caption si inserisca il carattere 
“-” e nella casella Name si scriva, per esempio, NI. 


Utilizzare i pulsanti contenenti le frecce rivolte verso destra 
o verso sinistra per salire o scendere all’interno della “gerar- 
chia” dei livelli di creazione di menu.L'uso dei pulsanti con- 
tenenti le freccie rivolte verso l’alto o verso il basso consen- 
te,invece, di modificare la posizione di un menu o di un suo 
comando. 


4 Creazione di sottomenu 


Creazione di sottomenu 


Per creare un sottomenu si proceda come segue. 


1. 


Si faccia clic sul pulsante con la freccia rivolta verso destra 
(posto sotto l'opzione Checked) per scendere di un livello 
nella gerarchia dei menu, accedendo, così, a quello per la 
creazione dei sottomenu. 


Nella casella di testo Caption si scriva il nome da assegnare 
al sottomenu, facendo precedere dal simbolo “&” il carattere 
che dovrà apparire sottolineato. Per esempio, se sì scrivesse 
&Calcola, verrebbe visualizzato Calcola, consentendo così 
all'utente di premere semplicemente “C” per accedere ai co- 
mandi del sottomenu stesso. 


Nella casella Name si scriva il nome da associare al sotto- 
menu. Di solito, per convenzione, tale nome viene sempre 
preceduto da mnu. 


Per creare altri nomi di sottomenu, si faccia clic sul pulsante di co- 
mando Successivo o su quello Inserisci e si esegua di nuovo la 
procedura sopra indicata. 


Allineamento di più controlli 


Per allineare contemporaneamente due o più controlli di un form 
sì proceda come segue. 


1. 


Si selezionino i controlli che si desiderano allineare facen- 
do clic su ognuno di essi premendo e mantenendo premuto 
il tasto @ (Maiusc). 


Si scelga il comando Formato Allinea per accedere al sot- 
tomenu corrispondente. 


a sinistra 


Di 


Asse verticale 


Si A destra 


ÎTi Inalto 
1} Asse orizzontale 
al! Inbasso 


Du Alla griglia 


La tabella seguente descrive schematicamente i comandi contenu- 
ti nel menu Allinea. 
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Comando 


Descrizione 


A sinistra 


Allinea orizzontalmente i controlli selezionati, posizionan- 
do quello più a sinistra in linea con il bordo verticale sini- 
stro dell'ultimo controllo selezionato (ovvero di quello con 
le maniglie di controllo di colore nero pieno). 


Asse verticale 


A destra 


Allinea orizzontalmente i controlli selezionati in base a un 
ideale asse verticale centrale che attraversa l'ultimo con- 
trollo selezionato (quello con le maniglie di controllo nero 
pieno). 


Allinea orizzontalmente i controlli selezionati in base al 
bordo verticale destro dell'ultimo controllo selezionato 
(quello con le maniglie di controllo nero pieno). 


In alto 


Allinea verticalmente i controlli selezionati in base al bor- 
do orizzontale superiore dell'ultimo controllo selezionato 
(quello con le maniglie di controllo nero pieno). 


Asse orizzontale 


Allinea verticalmente i controlli selezionati in base a un 
ideale asse orizzontale centrale che attraversa l'ultimo 
controllo selezionato (quello con le maniglie di controllo 
nero pieno). 


In basso 


Allinea verticalmente i controlli selezionati in base al bor- 
do orizzontale inferiore dell'ultimo controllo selezionato 
(quello con le maniglie di controllo nero pieno). 


Alla griglia 


Allinea l'angolo superiore sinistro della serie di controlli 
selezionati al più vicino punto di griglia senza influire sulla 
dimensione originaria dei controlli stessi. 


Copia e incolla di controlli 


L'operazione di copia e di incolla di controlli permette di creare 
controlli multipli che siano assolutamente uguali nella dimensio- 
ne e nell'aspetto (con la sola eccezione eventualmente della pro- 
prietà Name). Dopo una duplicazione di uno o più controlli questi 
potranno essere conservati nella loro forma e dimensione origi- 
nale oppure sarà possibile intervenire su alcune delle proprietà 
corrispondenti.Per copiare e incollare (quindi duplicare) un con- 
trollo, si proceda come segue. 


1. Si selezioni il controllo da duplicare facendovi sopra clic. 


2. Siselezionino (se necessario) gli altri controlli da duplicare 
contemporaneamente al primo selezionato, facendovi sopra 
clic mantenendo premuto il tasto @ (Maiusc). Per deselezio- 
nare un controllo erroneamente selezionato,sempre mante- 
nendo premuto il tasto @ (Maiusc) vi si faccia sopra clic. 


0 Personalizzazione delle proprietà dei controlli 


3. Si prema Ctrl+C 
b. Si prema Ctrl+V 


5. Si intervenga sulle proprietà (per esempio Caption oppure 
Name) dei controlli incollati per modificarle rispetto a quel- 
le dei controlli originari. 


Personalizzazione delle proprietà dei controlli 


Visual Basic prevede, per ogni controllo, una propria finestra delle 
proprietà. La figura seguente presenta, per esempio, la finestra 
Proprietà alla quale si può accedere tramite il comando Visualizza 
9 Finestra Proprietà. 


a Riogetto1[® Microsoft Visual[Basic [progettazione] 
ari 
SE PERE ZIE dh & 


= ewoocococon 
? ((nessuma) 
__{0-Default 


| (Restituisce o imposta un elemento grafico che 
i viene visualizzato quando il pulsante è inattivo, 


La finestra delle proprietà di un controllo è composta da due sezio- 
ni che permettono di accedere a due tipi di visualizzazione delle 
proprietà del controllo:Alfabetico e Per categoria. La prima, elenca 
le proprietà in ordine alfabetico, mentre la seconda le elenca in 
base alle categorie di appartenenza. Le proprietà vengono visualiz- 
zate in una tabella su due colonne dove quella di sinistra contiene 
il nome della proprietà mentre quella destra ne indica il valore. Per 
modificare quindi il valore di una proprietà, si faccia clic con il 
mouse all’interno della casella che ne contiene il valore. 


Visual Basic riconosce i seguenti tipi di proprietà. 
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II 


+ 


&> 


Modificabile liberamente. Questo tipo di proprietà (ap- 
plicabile, per esempio, a un valore testuale o numerico in- 
tero) può essere modificato digitando nella casella corri- 
spondente il nuovo valore oppure intervenendo su quello 
già presente. Per esempio, si potrà intervenire sulla proprie- 
tà Caption di un pulsante di comando. 


A scelta da menu.Quando si seleziona il valore di una pro- 
prietà di tipo enumerato, Visual Basic visualizza, alla destra 
del valore stesso, un pulsante contenente una freccia rivolta 
verso il basso. Se si fa clic su tale pulsante verrà visualizzato 
un elenco di valori predefiniti ammissibili. Un esempio tipi- 
co di queste proprietà è quello che prevede valori di tipo 
booleano (tanto per intenderci: Enabled oppure Visible) 
o proprietà che intervengono sul colore del controllo (Fo- 
reColor oppure BackColor). 


A scelta guidata. Quando si seleziona il valore di una di 
queste proprietà Visual Basic visualizza, alla destra del valo- 
re,un pulsante contenente tre puntini di sospensione (. . .)). 
Facendo clic su tale pulsante si accederà a una finestra di 
dialogo che consentirà di selezionare un nuovo valore. Un 
esempio tipico di proprietà che utilizzano questo tipo di va- 
lori sono quelle che definiscono un nome di file o un'imma- 
gine. 


<®*t, Permaggiori informazioni circa la personalizzazione di un control- 
o) lo, si consulti il libro Visual Basic 6 For Dummies di Wallace Wang 
L 


(Apogeo, 1998). 


Funzioni per le date 


Visual Basic è dotato di un'ampia gamma di funzioni per la gestio- 
ne delle date che verranno prese in esame nei paragrafi di questa 
sezione. 


Vedi anche: in questa parte,“Funzioni per la gestione dell’ora”. 


La funzione Date ( ) 


La funzione Date( )restituisce un Variant (Date) che corrisponde 
alla data di sistema.La sintassi generale della funzione Date( ) è la 
seguente. 


Date 


Quello che segue è un esempio classico dell'uso della funzione. 


Debug.Print Date ' visualizza la data di sistema 
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Questo esempio genera la visualizzazione, nella finestra Immediata, 
della data di sistema. 


La funzione Day ( ) 


La funzione Day( ) restituisce un Variant(Integer),un valore in- 
tero compreso tra 1 e 31, che rappresenta il giorno (del mese) di 
Data. Data può essere un Variant, un'espressione numerica, 
un'espressione di tipo stringa oppure una qualsiasi combinazione 
che possa rappresentare una data. 


La sintassi generale della funzione Day () è la seguente. 


Day (Data) 


Viene ora proposto un esempio dell’uso della funzione Date( ) 


Dim miaData As Date 
miaData = #5/3/98# 
Debug.Print Day(miaData) 


Con questo esempio viene dichiarata la variabile miaData di tipo 
Date alla quale è assegnata la data del 3 maggio 1998. L’enunciato 
di output richiama la funzione Day ( ) il cui argomento corrispon- 
de a miaData. L'enunciato genera la visualizzazione, nella finestra 
Immediata, del numero 3. 


La funzione Month ( ) 


La funzione Month( ) restituisce un Variant(Integer),un numero 
intero compreso tra 1 e 12,che rappresenta la componente del mese 
di Data. Data può essere un Variant, un’espressione numerica, 
un'espressione di tipo stringa o una qualsiasi combinazione che 
rappresenti una data. 


La sintassi generale della funzione Month() è la seguente. 


Month (Data) 


Viene ora presentato un esempio dell’uso della funzione Month( ). 


Dim miaData As Date 
miaData = #5/3/98# 
Debug.Print Month(miaData) 


Con questo esempio si dichiara la variabile miaData di tipo Date e 
le si assegna la data del 3 maggio 1998. L'enunciato di output ri- 
chiama la funzione Month( ) il cui argomento corrisponde alla 
variabile miaData.L'enunciato genera la visualizzazione, nella fine- 
stra Immediata, del numero 5. 


N 


TASS, 
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La funzione Now( ) 


La funzione Now( ) restituisce la data e l’ora di sistema come 
Variant(Date). 


La sintassi generale per la funzione Now() è la seguente. 


Now 


Qui di seguito viene proposto un esempio dell'uso della funzione 
Now( ). 
Debug.Print Now ' visualizza la data/ora di sistema attiva 


Questo esempio genera la visualizzazione, nella finestra Immediata 
dell’ora e della data di sistema. 


La funzione Weekday ( ) 


La funzione Weekday( ) restituisce il numero del giorno della setti- 
mana per un Variant, valore numerico, valore di tipo stringa o di 
una qualsiasi combinazione che rappresenti una data. 


La sintassi generale per la funzione Weekday( ) è la seguente. 


Weekday (Data, [firstDayOfWeek]) 


La funzione Weekday( ) restituisce un Variant(Integer) che spe- 
cifica un numero intero che rappresenta un giorno della settimana 
per Date.L’argomento facoltativo firstDayOfWeek definisce il pri- 
mo giorno della settimana e, se non altrimenti specificato, Visual 
Basic presume che la settimana inizi sempre di domenica. 


La funzione Weekday( ),per l'argomento firstDayOfWeek, fa uso 
delle costanti riportate nella tabella seguente. 


Costante Valore Descrizione 
vbUseSystem 0 Usa le impostazioni NLS API 
vbSunday 1 Domenica (default) 
vbMonday 2 Lunedì 

vbTuesday 3 Martedì 

vbWednesday” 4 Mercoledì 

vbThursday 5 Giovedì 

vbFriday 6 Venerdì 

vbSaturday 7 Sabato 
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Viene ora proposto un esempio dell'uso della funzione Weekday ( ) 


Dim miaData As Date 
miaData = #5/3/98# 
Debug.Print Weekday(miaData) 


Questo esempio dichiara la variabile miaData di tipo Date asse- 
gnandole la data del 3 maggio 1998.L’enunciato di output richiama 
la funzione Weekday ( ) assegnandole l'argomento miaData.L'enun- 
ciato genera la visualizzazione, nella finestra Immediata, del nume- 
ro 7 (corrispondente a sabato). 


La funzione Vear( ) 


La funzione Year( ) restituisce il numero dell’anno per un partico- 
lare Variant, valore numerico, stringa o per qualsiasi espressione 
combinata che rappresenti una data. 


La sintassi generale della funzione Year () è la seguente. 


Year (Data) 


La funzione restituisce un Variant(Integer) che definisce un nu- 
mero intero che rappresenta la componente dell’anno di Data. 


Quello che segue è un esempio dell’uso della funzione 


Dim miaData As Date 
miaData = #5/3/98# 
Debug.Print Year(miaData) 


Con questo esempio viene dichiarata la variabile miabata di tipo 
Date e le si assegna la data del 3 maggio 1998. L’enunciato di ou- 
tput richiama la funzione Year( ) il cui argomento corrisponde 
alla variabile miabata.Il risultato dell’enunciato è la visualizzazio- 
ne, nella finestra Immediata, del numero 1998. 


Eliminazione di controlli 


Per eliminare un controllo da un form, si proceda come segue. 


1. Si selezioni il controllo che si desidera eliminare facendovi 
sopra clic. Se si desiderano eliminare più controlli contem- 
poraneamente, si faccia clic su quelli da selezionare mante- 
nendo premuto il tasto È(Maiusc). 


2. Sipremail tasto Canc, oppure si scelga il comando Modifica 
Sì Taglia. 
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Eliminazione di menu 


Per eliminare un intero menu si richiami l'editor di menu cliccando 
con il tasto destro del mouse e selezionando la voce Menu Editor, 
quindi si proceda come segue. 


1. Siselezioni il nome del menu o del comando che si deside- 
ra eliminare. 


2. Si faccia clic sul pulsante Elimina. 


Disegno dei controlli 


NI ANeg, 


IS 
() 
(2 


Menu 


Il disegno di vari controlli di un'applicazione è uno dei lati più pia- 
cevoli di Visual Basic poiché il loro utilizzo determina l’interfaccia 
dell’applicazione che si sta creando servendosi, per questa opera- 
zione, della finestra del form e della Casella degli strumenti. Per di- 
segnare un controllo all’interno di un modulo, si proceda come 
segue. 


1. Fare clic, nella Casella degli strumenti, sul controllo che si 
desidera creare. 


2. Si porti il puntatore del mouse all’interno del form in modo 
da definire l'angolo superiore sinistro del controllo che si 
sta creando. 


3. Si prema e si mantenga premuto il pulsante del mouse e si 
trascini il puntatore diagonalmente verso il basso e a destra 
per creare l’area nella quale dovrà apparire il controllo. Al 
puntatore viene agganciato un riquadro tratteggiato che in- 
dica la dimensione raggiunta dell’area del controllo che si 
sta creando. 


4. Quandosi sarà raggiunta la dimensione desiderata, si rilasci 
il pulsante del mouse.Visual Basic visualizza il controllo al- 
l’interno dello spazio definito assegnando al controllo stes- 
so le proprietà di default. 


Per maggiori informazioni sul disegno dei controlli, si consulti il 
libro Visual Basic 6 For Dummies di Wallace Wang (Apogeo, 1998). 


Per questi elementi si rinvia alle sezioni di questa parte che si occu- 
pano specificatamente dell’aggiunta, dell’eliminazione, dello spo- 
stamento e della creazione di menu e sottomenu. 
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Spostamento di controlli 


Per spostare un controllo si proceda come segue. 


l. 


Si selezioni il controllo da spostare facendovi sopra clic. Per 
selezionare più controlli da spostare contemporaneamente, 
sì faccia clic sugli stessi premendo e mantenendo premuto 
il tasto © (Maiusc). 


Si faccia di nuovo clic sul controllo e, mantenendo premu- 
to il pulsante del mouse, lo si trascini nella posizione desi- 
derata. 


Spostamento di menu 


Per spostare un menu all’interno della Barra dei menu, si proceda 
come segue. 


l. 


5. 
5. 


Si richiami la finestra Menu Editor facendo clic con il pul- 
sante destro del mouse all’interno del form selezionando, 
dal menu rapido che viene aperto,il comando Menu Editor 


Si selezioni il menu o il comando di menu che si desidera 
spostare facendo clic sul suo nome. 


Si faccia clic sul pulsante con la freccia rivolta verso l’alto o 
verso il basso per spostare in alto o in basso la voce del menu 
o del comando selezionato. Nel corso dello spostamento 
l'elemento spostato manterrà il proprio livello originario di 
“rientro gerarchico”. 


Si ripetano i passi 2 e 3 per spostare le altre voci di menu o 
comandi. 


Si faccia clic su OK per confermare gli spostamenti effettuati. 


Nota. Quando si fa clic su OK della finestra di dialogo Menu Editor, 
Visual Basic controlla la correttezza della sequenza dei menu e dei 
corrispondenti comandi. Se Visual Basic rileva un errore, ne darà 
comunicazione indicando il livello nel quale questo si è verificato. 


L'istruzione Print 


L'istruzione Print visualizza un testo all’interno della finestra Im- 
mediata. (questa finestra consente di esaminare i valori delle varia- 


bili e verificare funzioni). 


La sintassi generale di questa istruzione è la seguente. 
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oggetto.Print [outputlist] 


La componente oggetto dell’enunciato indica l’oggetto che do- 
vrà essere stampato (per esempio, Debug). L'argomento facoltati- 
vo [outputlist] corrisponde, invece, a un’espressione o a un elen- 
co di espressioni da stampare. Quando si omette questa indica- 
zione facoltativa, verrà visualizzata una riga vuota. L'argomento 
outputlist prevede la seguente sintassi 


[Spc(n) | Tab(n)] espressione posizionecarattere 


La parte facoltativa Spc (n) inserisce una serie di caratteri “spazio” 
il cui numero viene definito da (n).L'elemento facoltativo Tab(n), 
invece, inserisce un valore assoluto di colonne (definito da (n)) 
al quale dovrà essere spostato il cursore. Per spostare il cursore 
all’inizio della successiva area di stampa, si utilizzi Tab senza as- 
sociarlo ad alcun argomento specifico. L'argomento facoltativo 
espressione può corrispondere a un’espressione sia numerica 
sia letterale. 


L'argomento facoltativo posizionecarattere specifica il punto 
di inserimento immediatamente successivo l’ultimo carattere stam- 
pato. Tab(n) imposta il punto di inserimento a un valore numeri- 


co di colonna assoluto e se si omette l'argomento posizioneca- 


rattere,il carattere successivo verrà riprodotto all’inizio della riga 
seguente. 


Viene ora proposto un esempio pratico dell’enunciato Print 


Sub Stampalo(X As Double) 
Debug.Print "La radice quadrata di " ; X ;" ="; Sqrt(X) 


End Sub 


Questo esempio mostra la procedura Stampalo che visualizza il va- 
lore di tipo Double dell’argomento X e il valore della sua radice 
quadrata. La procedura, per visualizzare tali valori, utilizza l’enun- 
ciato Debug .Print.Viene anche visualizzata la stringa letterale La 
radice quadrata di,il valore dell'argomento X,la stringa letterale 
= e,infine,il valore della radice quadrata dell'argomento xX.L'enun- 


ciato Print si serve del carattere punto e virgola (“;”) per concate- 
nare gli elementi da visualizzare sulla stessa riga. 


Selezione di uno o più controlli 


Per selezionare un singolo controllo vi si faccia sopra clic con il 
mouse; per deselezionare un controllo precedentemente selezio- 
nato occorre fare clic sulla form. 
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Perselezionare contemporaneamente più controlli si proceda come 
segue. 


1. Siselezioni il primo controllo della serie facendovi sopra clic. 


2. Premere e mantenere premuto il tasto @(Maiusc) e si faccia 
clic su tutti gli altri controlli da selezionare. 


Funzioni per la gestione dell’ora 


Visual Basic è dotato di una serie di funzioni che consentono di 
accedere all'orologio di sistema. Nei paragrafi di questa sezione si 
prenderà in considerazione ogni singola funzione di questo tipo. 


La funzione Hour( ) 


La funzione Hour( ) restituisce un Variant(Integer), ovvero un 
valore intero compreso tra 0 e 23, che rappresenta la componente 
di ora corrispondente all’ora del giorno. L'argomento ora può es- 
sere un Variant, un’espressione numerica, letterale o una qualsiasi 
loro combinazione che possa rappresentare un’ora ammissibile. 


La sintassi generale della funzione Hour( ) è la seguente 


Hour (ora) 


Quello che segue è un esempio di un possibile utilizzo della fun- 
zione 


Dim OrarioAttuale As Variant, OraAttuale As Integer 
OrarioAttuale = #17:11:16# ' Assegna un'ora. 
OraAttuale = Hour(0OrarioAttuale) 


Questo esempio, innanzi tutto, dichiara la variabile OrarioAttuale 
di tipo variant e la variabile OraAttuale di tipo Integer. 
Nell’esempio,alla variabile OrarioAttuale viene assegnata una strin- 
ga che rappresenta un’ora (17:11:16, oppure 5:11:16PM in un sistema 
orario a 12 ore).Viene poi richiamata la funzione Hour ( ) in modo 
da poter estrarre l’ora dalla variabile OrarioAttuale. L'enunciato 
che richiama la funzione Hour( ) memorizza quindi il risultato di 
questa funzione (17) all’interno della variabile OraAttuale. 


La funzione Minute ( ) 


La funzione Minute ( )restituisce un Variant(Integer),un valore 
intero compreso tra 0 e 59, che rappresenta la componente di ora 
corrispondente ai minuti.L'argomento ora può essere un Variant, 
un’espressione numerica, letterale o una qualsiasi loro combina- 
zione che possa rappresentare un'ora ammissibile. 
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La sintassi generale della funzione Minute ( ) è la seguente 
Minute (ora) 

Quello che segue è un esempio di un possibile utilizzo della fun- 
zione Minute( ). 


Dim OrarioAttuale As Variant, MinutoAttuale As Integer 
OrarioAttuale = #17:11:16# ' Assegna un'ora. 
MinutoAttuale = Minute(OrarioAttuale) 


Questo esempio, innanzi tutto, dichiara la variabile OrarioAttuale 
di tipo Variant e la variabile MinutoAttuale di tipo Integer. 
Nell’esempio, alla variabile OrarioAttuale viene assegnata una 
stringa che rappresenta un’ora (17:11:16, oppure 5:11:16 PM in un 
sistema orario a 12 ore). 


Viene poi richiamata la funzione Minute ( ) in modo da poter estrar- 
re i minuti della variabile OrarioAttuale. L'enunciato che richia- 
ma la funzione Minute( ) memorizza quindi il risultato di questa 
funzione (17) all’interno della variabile MinutoAttuale. 


La funzione Second( ) 


La funzione Second( ) restituisce un Variant(Integer),un valore 
intero compreso tra 0 e 59, che rappresenta la componente di time 
corrispondente ai secondi del giorno.L'argomento ora può essere 
un Variant, un’espressione numerica, letterale o una qualsiasi loro 
combinazione che possa rappresentare un'ora ammissibile. 


La sintassi generale della funzione Second( ) è la seguente. 


Second(ora) 


Quello che segue è un esempio di un possibile utilizzo della fun- 
zione . 


Dim OrarioAttuale As Variant, SecondoAttuale As Integer 
OrarioAttuale = #17:11:16# ' Assegna un'ora. 
SecondoAttuale = Second(OrarioAttuale) 


Questo esempio, innanzi tutto, dichiara la variabile OrarioAttuale 
di tipo Variant e la variabile SecondoAttuale di tipo Integer. 
Nell'esempio, alla variabile OrarioAttuale viene assegnata una strin- 
ga che rappresenta un secondo (17:11:16, oppure 5:11:16 PM in 
un sistema orario a 12 ore).Viene poi richiamata la funzione Se - 
cond( )in modo da poter estrarre i secondi della variabile Ora- 
rioAttuale.L’enunciato che richiama la funzione Second( ) me- 
morizza quindi il risultato di questa funzione (16) all’interno della 
variabile SecondoAttuale. 
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La funzione Time ( ) 


La funzione Time( ) restituisce un Variant(Date) che corrispon- 
de all'ora attiva di sistema. 


La sintassi generale della funzione Time( ) è la seguente. 


Time 


Quello che segue è un esempio di un possibile uso della funzione. 


Dim OrarioVariabile As Variant 
OrarioVariabile = Time 


In questo esempio viene dichiarata la variabile OrarioVariabile 
di tipo Variant nella quale si memorizza l’ora di sistema tramite il 
richiamo della funzione Time( ). 


Uso della finestra “Immediata” 


Visual Basic prevede la presenza della finestra Immediata per vi- 
sualizzare e verificare i valori di un programma. Nel caso in cui 
questa finestra non sia visibile si scelga il comando Visualizza © 
Finestra Immediata. Gli scopi di tale finestra sono, principalmente, 
due. 


+ Visualizzare i valori di un programma Visual Basic tra- 
mite l’istruzione Debug. Print.Per esempio, se si desidera- 
no verificare i valori di una variabile chiamata Indice, si potrà 
inserire in una procedura l’istruzione Debug. Print Indice. 
Questo enunciato, quando verrà eseguito, visualizzerà nella 
finestra Immediata il valore della variabile Indice. 


+ Eseguire istruzioni scritte oppure incollate in un pro- 
gramma Visual Basic. Per esempio, nella finestra Immedia- 
ta si potrà scrivere direttamente Print Indice e premere 
Invio per visualizzare immediatamente il valore della varia- 
bile Indice. 


Regole per l'assegnazione dei nomi 


Visual Basic quando si desidera assegnare nomi a costanti, variabi- 
li, subroutine, funzioni, tipi di dati personalizzati, classi eccetera, ri- 
chiede che vengano adottate alcune regole precise. 


*+ Ilprimo carattere di un nome Visual Basic deve necessa- 
riamente essere una lettera. 


DA ANCg, 


< 
(GO) 
VE, 
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+ caratteri successivi potranno essere lettere, numeri o ca- 
ratteri “_” (underscore). 


+ InomiVisual Basic non fanno distinzione fra maiuscole 
e minuscole. 


Qui di seguito vengono forniti alcuni esempi di nomi ammissibili. 


X 

HARI_KARI 
FiltroAmore9 
mioNome_01 


Ricordare. Dato che Visual Basic non rileva la differenza fra l’uso 
di caratteri maiuscoli o minuscoli, i nomi FiltroAmore9, FILTRO 
AMORE9 e fILtroaMoRe9 verranno sempre riconosciuti come /o stes- 
so nome. 


Per maggiori informazioni circa le regole di assegnazione dei nomi, 
si consulti il libro Visual Basic 6 For Dummies di Wallace Wang (Apo- 
geo, 1998). 


Integrazione con Visual Studio 


Visual Basic 6 fa parte del pacchetto di sviluppo Visual Studio, che 
include, fra l’altro, anche Visual C+ e Visual J+. Nonostante l’inter- 
faccia utente di Visual Basic 6 sia differente da quella di Visual CH 
e Visual J+, questi prodotti sono integrati nei seguenti aspetti. 


+ È possibile sviluppare controlli ActiveX in Visual Basic e uti- 
lizzarli in progetti Visual C+ e Visual J+. E inoltre possibile 
utilizzare in progetti Visual Basic i controlli ActiveX realizza- 
ti in Visual C+ e Visual JH+. 


+ È possibile utilizzare in progetti Visual C+ e Visual J++ fine- 
stre di dialogo realizzate in Visual Basic.Tuttavia tale possibi- 
lità è sconsigliata a causa del fatto che i controlli Visual Ba- 
sic possono essere gestiti da Visual C+ e Visual JH in ma- 
niera molto limitata. 


*+ Si può utilizzare Visual JH- per creare applicazioni Windows 
con lo stesso approccio di Visual Basic. Ciò significa che an- 
che Visual JH+ consente di disegnare controlli sulle form e 
di associarvi delle funzioni. Visual C+, al contrario, salva le 
proprie maschere, finestre di dialogo e controlli in un appo- 
sito file di risorse. 


Il fatto che Visual J+ abbia adottato tecniche di programmazione 
visuale simili a quelle presenti in Visual Basic segnala la tendenza 
di Visual Studio ad avvicinarsi alla filosofia di tale ambiente di svi- 
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luppo. Ci si può quindi aspettare anche da parte di Visual C+, per 
la prossima versione di Visual Studio, un maggiore supporto allo 
stile di sviluppo presente in Visual Basic. Inoltre, ci si augura che le 
prossime versioni di ogni ambiente di sviluppo aumentino la com- 
patibilità dei controlli. 


] file di progetto 


I menu di Visual Basic contengono diversi comandi che consento- 
no al programmatore di interagire con i vari file di progetto. 


Creazione di un nuovo progetto 


Il comando File © Nuovo progetto consente di creare un nuovo file 
di progetto al quale viene automaticamente assegnata l’estensione 
“VBP”.Questo comando richiama la finestra di dialogo Nuovo pro- 
getto che consente di selezionare il tipo di progetto da avviare. La 
figura seguente riporta un esempio di questa finestra per la versio- 
ne Enterprise di Visual Basic.Come si potrà notare si ha la possibili- 
tà di avviare nove tipi di progetto ma, nella maggior parte dei casi, 
si sceglierà l'opzione Standard EXE. 


Nuovo progetto | - : EI 
E 


Annulla 


È EXEActiveX DLL ActiveX Controllo 
Active 
n 4 i SI 
a) s 
SX & di 


Creazione Creazione Progetto dati Applicazione 
IIS 


guidata app... operazi... 
di di SD di 
Addin DLL EXE Applicazione 
docume... docume... DHTML 
mo zi 


‘Aggiunta di un progetto 


Il comando File © Aggiungi progetto permette di aggiungere al file 
di progetto .VBP più di un progetto. Si utilizzi questo comando per 
combinare, in un solo file .VBP più progetti. Il comando Aggiungi 
progetto genera l'apertura della finestra di dialogo Aggiungi progetto. 
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Rimozione di un progetto 


Per eliminare un progetto lo si selezioni facendo clic sul suo nome 
nella finestra Progetto e avviando quindi il comando File 9 
Rimuovi progetto. Visual Basic rimuove il progetto e questa modifi- 
ca viene riflessa anche nella finestra Progetto. 


Salvataggio di un progetto 


Per salvare un progetto si hanno ha disposizione due alternative. Il 
comando File © Salva progetto salva il progetto e i file collegati 
assegnandogli il nome corrente. Quando si usa questo comando 
su un nuovo progetto, Visual Basic richiede se si desidera assegnare 
al file di progetto un nuovo nome. 


Il comando File © Salva progetto con nome salva il progetto sul 
quale si sta lavorando consentendo di assegnargli un nuovo nome. 
Aggiunta al programma di form e di altri elementi 
Il menu Progetto contiene i seguenti comandi. 


+ Inserisci form permette di inserire nel progetto un nuovo 
form. 


+ Inserisci form MDI consente di aggiungere al progetto un form 
MDI (Multiple Document Interface). 


+ Inserisci modulo inserisce in un progetto un nuovo modulo. 


+ Inserisci modulo di classe permette di inserire un modulo 
classe. 


* Inserisci controllo utente consente di aggiungere controlli 
di tipo personalizzato. 


+ Inserisci pagina proprietà inserisce una pagina per le pro- 
prietà. 


+ Inserisci documento utente permette di inserire documenti 
di tipo personalizzato. 


+ Inserisci DAHTML page permette di inserire una pagina Dy- 
namic HTML. 


+ Inserisci Data Report permette di inserire un report. 


+ Inserisci WebClass consente di inserire una classe orienta- 
ta al Web. 


+ Inserisci Microsoft User Connection consente di aggiungere 
una connessione a database. 
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+ Inserisci altre finestre di progettazione ActiveX permette di 
aggiungere oggetti ActiveX. 


+ Inserisci file consente di inserire file esterni. 


Rimozione di un file 


Per rimuovere da un progetto un form, un modulo di classe o altri 
elementi si selezioni, dalla finestra Progetto la voce corrispondente 
e si scelga il comando Progetto (associato al nome dell'elemento 
da rimuovere). Per esempio, se si è selezionato il form Form2,il menu 
Progetto dovrebbe contenere il comando Rimuovi Form2. 


La finestra Progetto 


La finestra di progetto (chiamata anche Gestione progetti) contiene 
un elenco gerarchico di tutti i progetti e degli elementi nello stesso 
contenuti, come esemplificato nella figura di pagina seguente. 


La finestra di progetto è composta dai seguenti elementi. 


+ Il pulsante Visualizza codice apre una finestra che visualiz- 
za il codice sorgente del progetto nel quale si potrà interve- 
nire per apportare le opportune modifiche o aggiustamenti. 


*+ Ilpulsante Visualizza oggetto apre la finestra relativa alla voce 
selezionata, a un form esistente, a un oggetto ActiveX o a un 
controllo utente. 


+ Il pulsante Espandi/comprimi cartelle consente di visualiz- 
zare la cartella contenente i veri elementi di un progetto. 


+ La finestra del progetto mostra tutti i progetti caricati e gli 
elementi che ne fanno parte. 


Frogetto © Pragettal E 
[cm | 


3$ Progettol (Progetto1) 
BY Form 


MiefFormi (Fori) 


In particolare, quest'area contiene le voci seguenti. 
+ Progetto: il progetto e gli elementi che lo compongono. 


+ Form: tutti i form (file con estensione “FRM”) associati al 
progetto. 


+ 


+ 
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Moduli: nomi dei moduli (file con estensione “.BAS”) uti 
lizzati nel progetto. 


Moduli di classe: nomi di moduli di classe (file con esten- 
sione “.CLS”) utilizzati nel progetto. 


Controlli utente: tutti i controlli utilizzati nel progetto. 


Documenti utente: (file con estensione“ DOB”) che fanno 
parte del progetto. 


Pagine delle proprietà: (file con estensione “.PAG”) nel 
progetto. 


Documenti correlati: documenti ai quali si vuole accede- 
re dall’interno del progetto. 


Risorse: tutte le risorse disponibili nel progetto. 


La finestra proprietà 


Si faccia riferimento alla sezione di questa parte che descrive come 
personalizzare le proprietà. 


TION 


Controlli semplici 


In questa parte vengono esaminati i controlli di tipo più 
semplice. Visual Basic mette a disposizione controlli per 
eseguire, virtualmente, qualsiasi operazione: dai semplici 
pulsanti o ai messaggi (presi in esame in questa parte) ai 


controlli di tipo più avanzato descritti nella Parte V. 


Utilizzando queste due parti si dovrebbe essere in grado di 


controllare qualsiasi elemento di un'applicazione. 


Argomenti trattati 


v Uso dei controlli per consentire agli utenti 
di inserire i propri dati 

v Uso dei controlli per creare pulsanti, caselle 
di controllo e altri elementi necessari 


v Controlli per la visualizzazione del testo 
e dei messaggi 


24 


Controllo “Pulsante Bitmap” 


Controllo “Pulsante Bitmap” 


Un controllo Pulsante Bitmap (Bitmap Button) permette al program- 
matore di inserire immagini bitmap (o icone) all’interno dei pul- 
santi di un'applicazione Visual Basic. 


Nella tabella seguente vengono descritte schematicamente le pro- 
prietà rilevanti del controllo corrispondente ai pulsanti di coman- 
do che consentono di utilizzare le immagini bitmap come veri e 
propri pulsanti. 


Proprietà: sintassi 


Style: 
oggetto.Style 


Picture: 
oggetto.Picture 
[= immagine] 


DownPicture: 
oggetto. 

DownPicture 
[= immagine] 


DisablePicture: 
oggetto. 
DisablePicture 
[= immagine] 


Scopo 


Restituisce o imposta i va- 
lori che indicano il tipo di 
visualizzazione e il com- 
portamento del controllo. 
In fase di run-time si trat- 
ta di una proprietà di sola 
lettura. Il valore voButton 
Graphical(1) trasforma 
il controllo pulsante in un 
pulsante bitmap; al con- 
trario, il valore vbButton 
Standard(0) applica al 
controllo lo stile standard. 


Restituisce o imposta 
una immagine che dovrà 
essere visualizzata all'in- 
terno del controllo. Per 
default un pulsante bit- 
map non contiene alcu- 
na immagine. 


Restituisce o imposta i ri- 
ferimenti a un'immagine 
che deve essere visualiz- 
zata in un controllo pul- 
sante quando l'utente fa 
clic e mantiene premuto 
il pulsante del mouse. 


Restituisce o imposta 
i riferimenti a un'immagi- 
ne da visualizzare in 
un controllo quando que- 
sto è disabilitato. 


Esempio 


Commenti 


btnStyle = 
cmdQuit.Style 


cmdQuit.Picture 
= LoadPicture 
('quit.bmp') 


cmdQuit .DomPicture 
= LoadPicture 
('quitdn.bmp') 


cmdQuit.Disable 
Picture = 
LoadPicture 
('quiddp.bmp') 


Memorizza la proprie- 
tà style del pulsante 
cmdQuit all'interno 
della variabile btn- 
Style. 


Imposta la proprietà 
Picture caricando il 
file bitmap QUIT .BMP. 


Imposta la proprietà 
DownPicture cari- 
cando il file bitmap 
QUITDN.BMP. 


Imposta la proprietà 
Disable Picture ca- 
ricando il file bit map 
QUITDP .BMP. 
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Per maggiori informazioni sul pulsante bitmap, si consulti il libro 
Visual Basic 6 For Dummies di Wallace Wang (Apogeo, 1998). 


Viene ora presentato un esempio di programma che utilizza il pul- 
sante bitmap esemplificato nella figura. 


limi Pulsante bitmap 


Disabilita 


In questo esempio vengono visualizzati il pulsante bitmap “Premi!” 
e il pulsante di comando “Disabilita”. Quando l’utente farà clic sul 
pulsante bitmap, il programma visualizzerà un semplice messaggio 
testuale; al contrario, se l'utente farà clic e manterrà premuto il pul- 
sante del mouse sul pulsante bitmap, nel pulsante stesso verrà vi- 
sualizzata l’immagine associata alla proprietà DownPicture.Quan- 
do l’utente farà clic sul pulsante “Disabilita”,il pulsante bitmap ver- 
rà disabilitato e verrà visualizzata l’immagine bitmap associata alla 
proprietà DisablePicture. Quando l’utente farà clic sul pulsante 
‘Abilita”,il pulsante verrà di nuovo abilitato e visualizzerà l’immagi- 
ne bitmap associata alla proprietà Picture. 


La tabella seguente mostra le impostazioni del form e dei controlli 
dell'esempio. 


Modulo/Controllo Proprietà Impostazione 
Form Name Form1 (default) 
Caption Pulsante Bitmap 
Pulsante di comando Name cmdClickMe 
Caption Premi! 
Picture UPBTN.BMP 
DownPicture DNBTN.BMP 
DisablePicture DSBTN.BMP 
Pulsante di comando Name cmdDisable 


Caption &Disabilita 
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Ecco il codice sorgente. 


Private Sub cmdClickMe Click() 
MsgBox "Ciao!", , "Saluti" 

End Sub 

Private Sub cmdDisable Click() 
If cmdClickMe.Enabled Then 
cmdClickMe.Enabled = False 
cmdDisable.Caption = "&Abilita" 
Else 
cmdClickMe.Enabled = True 
cmdDisable.Caption = "&Disabilita" 
End If 

End Sub 


La procedura cmdClickMe_Click( ) risponde a un'operazione di 
clic sul pulsante bitmap visualizzando il messaggio Ciao!.La pro- 
cedura cmdDisable Click( ) risponde a un clic sul pulsante di 
comando “Disabilita”. Questo gestore dell'evento esamina la pro- 
prietà Enabled del pulsante di comando per determinare se abili- 
tare o disabilitare il pulsante bitmap. Quando la proprietà Enabled 
del pulsante di comando è &Disabilita ha valore vero, il gestore 
di evento esegue le operazioni seguenti. 


+ Disabilita il pulsante bitmap. 


+ Imposta la proprietà Caption del pulsante di comando su 
&Abilita 


Se la proprietà Enabled del pulsante ha valore falso, il gestore del- 
l'evento esegue le operazioni seguenti. 


* Abilita il pulsante bitmap. 


+ Impostala proprietà Caption su &Disabilita. 
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Un Pulsante di comando (Comman Button) è, probabilmente, uno 
dei controlli più usati nelle applicazioni Windows. L'utente, di so- 
lito, fa clic su un pulsante di comando per eseguire un'operazio- 
ne come, per esempio, quella per la lettura di un testo da un file, 
calcolare un valore eccetera. 


Nella tabella seguente vengono riportate le proprietà rilevanti di 
un controllo Pulsante di comando quando viene utilizzato come 
pulsante di tipo standard. Gli eventi rilevanti per il pulsante di co- 
mando sono Click, LostFocus e GotFocus. 
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Proprietà: sintassi Scopo Esempio Commenti 
Caption: Restituisce o imposta cmdbisable.Caption Imposta a &Abilita 
oggetto.Caption l'etichetta del pulsante = "gAbilita" l'etichetta del pulsante 
[= stringa] di comando. cmdDisable. 
Enabled: Restituisce o imposta lo cmdExit.Enabled = Imposta la proprietà 
oggetto .Enabled stato di abilitazione del Not Enabled Enabled del pulsante 
[= booleano] pulsante di comando. dicomando cmd Exit. 
Visible: Restituisce o imposta lo cmdExit.Visible = Imposta la proprietà 
oggetto.Visible stato di visibilità del pul- Not Visibledel pulsante di 
[= booleano] sante di comando. cmdExit.Visible comando cmd Exit. 
Default: Restituisce o imposta lo cmdExit.Default = Imposta la proprietà 
oggetto.Default stato di default del pul- Not cmdExit. Default del pulsante 
= booleano] sante di comando. Il Dbefault dicomando cmd Exit 


SEMP/, 


modulo richiama il valo- 
re di default ogni volta 
che si preme Invio. 


Per un esempio di come usare un pulsante di comando, si veda 
l'esempio riportato nella sezione di questa parte che descrive il 
controllo “Pulsante Bitmap”. 


Controllo “Casella di controllo” 


I controlli Casella di controllo (Check Box) sono composti da un 
piccolo quadrato che riporta una x quando l’utente desidera sele- 
zionare l'opzione associata (definita da una didascalia che ne de- 
scrive l'operatività). Quando si disattiva la casella di controllo, la x 
scompare. Ci si serve di questo controllo per consentire all’utente 
di attivare o disattivare alternativamente (“vero/falso”, oppure “si/ 
no”) una determinata opzione. Le caselle di controllo potranno 
essere inserite in gruppi di opzioni omogenee che consentano di 
selezionare, all’interno dello stesso gruppo, più opzioni contempo- 
raneamente. Le caselle di controllo non si escludono l’una con l’al- 
tra, ovvero l’attivazione o disattivazione di un’opzione di un grup- 
po non influisce sulle altre opzioni dello stesso tipo e dello stesso 
gruppo. 


Le proprietà rilevanti delle caselle di controllo sono Value e Cap- 
tion. 
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Proprietà Value 


La sintassi generale per l’uso della proprietà Value di una casella 
di controllo è la seguente. 


checkBoxControl.Value [= valore] 


La proprietà Value indica lo stato di una casella di controllo e i 
valori ammissibili sono 0 (casella vuota: opzione deselezionata), 1 
(casella e opzione corrispondente selezionate) e 2 (opzione tem- 
poraneamente non disponibile).La proprietà Value può essere usata 
per impostare o per verificare lo stato attivo di una casella di con- 
trollo. 


Quello che segue è un esempio di come modificare lo stato di una 
casella di controllo. 


If chkBackup.Value = 0 Then 
chkBackup.Value = 1 

Else 
chkBackup.Value = 0 

End If 


Questo esempio utilizza un enunciato If per determinare lo stato 
di disattivazione della casella di controllo (casella vuota).In que- 
sto caso (Value = 0) il codice assegna alla proprietà Value del 
controllo il valore 1 (ovvero attiva la casella). In caso contrario, 
l’enunciato If assegna alla proprietà Value il valore 0 (ovvero di- 
sattiva [svuota] la casella di controllo). Si noti che non viene utiliz- 
zato l'operatore NOT per modificare lo stato della casella di con- 
trollo. Infatti, la casella di controllo ha un terzo stato possibile: disa- 
bilitato. 


Proprietà Caption 


La proprietà Caption visualizza, sotto forma di stringa, il testo de- 
scrittivo dell'opzione associata alla casella di controllo. 


La sintassi generale della proprietà Caption è la seguente. 


checkBoxControl.Caption [= stringa] 


Quello che segue è un esempio di come la proprietà Caption pos- 
sa disabilitare la casella di controllo associata all’opzione “Salva- 
taggio automatico”. 


Dim CasellaControllo, SeriePersonale 
For Each CasellaControllo In SeriePersonale 
If CasellaControllo.Caption = "Salvataggio automatico" 
Then 
CasellaControllo.Value = 0 ' disattiva caselle 
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Exit For ' Esce dal ciclo 
End If 
Next CasellaControllo 


Questo esempio utilizza il ciclo For Each perricercare la casella di 
controllo la cui proprietà Caption è “Salvataggio automatico”. Quan- 
do il ciclo la trova, imposta la corrispondente proprietà Value a 0. 


Si osservi ora l'esempio della figura seguente nella quale appare 
una casella di controllo per la visualizzazione dell’ora e della data 
di sistema correnti. Inizialmente, il modulo visualizza l’ora corren- 
te, ma quando l’utente seleziona la casella di controllo verranno 
visualizzate sia la data sia l'ora. Al contrario, quando l’utente dese- 
lezionerà l'opzione, il modulo visualizzerà solo l’ora corrente. 


sa, Ora È Bo 


11/22/98 8:18:00 PM 


Iv Mostra data 


Arta 


La tabella seguente riepiloga i dati relativi al modulo e ai controlli e 
le corrispondenti impostazioni delle proprietà. 


Oggetto Proprietà Impostazione 

Form Name Form1 (default) 
Caption Ora 

Etichetta Name IblTime 

Temporizzatore Name tmrTime 
Interval 1000 

Casella controllo Name chkTime 
Caption &MostraData 


Quello che segue è il codice sorgente del programma di esempio. 


Option Explicit 
Private Sub ShowTime() 
Dim TStr As Variant 
TStr = Time 
If chkTime.Value = 1 Then 
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TStr = TStr + Date 
End If 
lblTime.Caption = TStr 
End Sub 
Private Sub chkTime Click() 
ShowTime 
End Sub 
Private Sub Form _Load() 
lblTime.Caption = Time 
End Sub 
Private Sub tmrTime_ Timer() 
ShowTime 
End Sub 


Osservando il contenuto del codice si noterà la presenza dei se- 
guenti gestori di evento. 


+ La procedura Form _Load( ),quando il modulo viene cari- 
cato, visualizza all’interno dell’etichetta del controllo, l'ora 
corrente. 


+ La procedura chkTime_Click( ) risponde a un'operazione 
di clic sulla casella di controllo richiamando la procedura 
ShowTime( ) per aggiornare l’ora e la data nel controllo 
etichetta. 


+ La procedura tmrTime_Timer( ) richiama, ogni secondo 
che passa, la procedura ShowTime( ) e aggiorna l’ora e la 
data all’interno del controllo etichetta. 


+ La procedura ShowTime( ) assegna l'ora corrente alla pro- 
prietà Caption del controllo etichetta solo nel caso in cui 
la casella di controllo sia vuota. Al contrario, se la casella è 
selezionata, la procedura inserisce la data corrente nella pro- 
prietà Caption del controllo etichetta. 


Controllo “Casella combinata” 


Il controllo Casella combinata (Combo box) è un controllo com- 
posto da una casella di elenco di voci e da un’area di immissione. 
Questo tipo di controllo consente all’utente sia di selezionare una 
voce predefinita, sia di inserirme una manualmente. 


Nella tabella seguente vengono schematizzate le proprietà rilevan- 
ti del controllo Casella combinata. 


Controllo “Casella combinata” 
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Proprietà: sintassi 


Oggetto 


List: 
icboBox.List(indice) 
[= stringa] 


Restituisce o imposta le 
voci predefinite contenu- 
te nell'elenco del con- 
trollo. 


Proprietà 


cboNames.List(0) 
= "Guglielmo" 


Impostazione 


Assegna il nome Gu- 
glielmo alla prima 
voce dell'elenco della 
casella combinata. 


ListCount: 
cboBox.ListCount 


Restituisce il numero 
delle voci contenute nel- 
l'elenco della casella 
combinata. 


If cboNames. 
ListCount > 0 
Then 
ChoNames. 
List(0) = 
"Guglielmo" 


ListIndex: 
choBox.ListIndex 
[= indice] 


Recupera o imposta l'in- 
dice della voce selezio- 
nata all'interno del con- 
trollo. Non è disponibile 
in fase di progettazione 
del controllo. Quando 
non viene effettuata una 
selezione, la proprietà 
assume il valore -1. 


SelIdx = 
cboNames. 
ListIndex 


Nel caso in cui la par- 
te l'elenco della casel- 
la combinata non sia 
vuoto, sovrascrive la 
prima voce dell'elenco. 


Memorizza nella varia- 
bile selIidx l'indice 
della voce selezionata. 


Sorted: 
cboBox.Sorted 


Determina se le voci nel- 
la casella combinata 
sono state ordinate. 


If cboNames. 
Sorted Then 
aggiungi_ 
MiaVoce "io" 
Else 
cboNames. 
AddItem "io" 


Style: 

choBox.Style 

Nota. Si tratta di una 
proprietà di sola lettura. 


Determina lo stile della 
casella combinata.ll va- 
lore 0(vbComboDrop 
Down) corrisponde all'im- 
postazione di default e fa 
sì che il controllo appaia 
come un elenco a com- 
parsa. Il valore 1 (vbCom- 
boSimple) fa si che il 
controllo appaia come 
una normale casella 
combinata con visualiz- 
zazione dell'elenco delle 
voci. Il valore 2 (vbCom- 
boDropDownList)gene- 
ra una casella combina- 
ta con un elenco di voci 
a scorrimento. 


For Each Ctrl 
In 
mioGruppoCbo 
If Ctrl. 
style = 0 
Then Ctrl 
AddItem "io", 
1 End If Next 
Ctrl 


Esamina la proprietà 
Sorted per determi- 
nare se usare una pro- 
cedura personalizzata 
per aggiungere “io” 
oppure avvia il metodo 
AddItem( ) per ag- 
giungerla. 


Aggiunge a ogni casel- 
la combinata che ha lo 
stile di default, la strin- 
ga “io”. 


continua 
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Proprietà: sintassi 


Oggetto 


Proprietà 


Impostazione 


Text: Restituisce o imposta il cboNames.Text = Assegnala stringa “io” 
choBox.Text testo contenuto nel- io all'area di immissione 
[= testo] l'area di modifica (quan- della casella combina- 
do la proprietà Style è ta (presupponendo che 
impostata a 1 o 0). la proprietà Style non 
Restituisce la voce sele- sia impostata a 2). 
zionata nell'elenco se la 
proprietà Style è imposta- 
ta a2. 
SelLenght: Restituisce o imposta il cboNames.Sel Disattiva la selezione di 
cboBox.SelLength numero dei caratterise- Length = 0 caratteri effettuata nel- 
[= numero] lezionati all'interno del- l'area di immissione 
l'area di immissione del- della casella combina- 
la casella combinata. ta. 
SelStaît: Restituisce o imposta cboNames.Sel Fa sì che la selezione 
cboBox.SelStart l'indice del primo carat- Start = 1 dell'area di immissione 
[= indice] tere selezionato nel- della casella combina- 
l'area di immissione del- ta inizi dal primo carat- 
la casella combinata. tere. 
SelText: Restituisce o imposta il If cboNames. Seleziona il primo ca- 
choBox.SelText testo selezionato. SelText = "" Then  rattere dell'area di im- 
[= testo] cboNames.Sel Start missione nel caso non 


= 1 cboNames.Sel 
Length = 1 
End If 


ne sia stato selezionato 
nessun altro. 


Nella tabella seguente vengono schematicamente descritti i meto- 
di associati al controllo Casella combinata. 


Metodo: sintassi 


Descrizione 


Esempio 


Commento 


AddlItem: 
cboBox.AddItem 
voce, indice 


Aggiunge una nuova 


voce all'elenco della ca- 


sella combinata. 


cbolIo.AddItem 
"io"; 0 


Aggiunge la stringa “io” 
come prima voce della 
componente elenco 
della casella combinata. 


Clear: 
cboBox.Clear 


Removeltem: 
cboBox.Removeltem 
indice 


Elimina le voci dallacom- cboNames. 


ponente elenco della ca- 


sella combinata. 


Rimuove la voce specifi- 
cata da indice dalla com- 


ponente elenco della ca- 


sella combinata. 


Clear 


cboIo.Remove 
Item Q 


Elimina le voci dalla 
componente elenco 
della casella cboNames. 


Rimuove la prima voce 
dalla componente 
elenco della casella 
combinata choIo. 
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Infine, nella tabella seguente si indicano gli eventi rilevanti associa- 
bili a un controllo Casella combinata. 


Evento 


Click 


Db1Click 


Change 


Scroll 


Descrizione 


Si verifica quando si fa clic all'interno della componente 
elenco della casella combinata. 


Si verifica quando si fa doppio clic all'interno della com- 
ponente elenco della casella combinata. Viene di solito 
usato per eseguire un'operazione su un elemento dell'elen- 
co. 


Si verifica quando si modifica il contenuto di una casella 
combinata (la modifica si riflette sia nell'area di immissio- 
ne sia in quella dell'elenco delle voci). 


Si verifica quando si fa scorrere il contenuto della compo- 
nente elenco della Casella combinata. 


Per maggiori informazioni sul controllo“Casella combinata”, si con- 
sulti il libro Visual Basic 6 For Dummies di Wallace Wang (Apogeo, 


1988). 


La figura è un esempio che fa uso di un controllo Casella combina- 
ta per la memorizzazione di un elenco dinamico di numeri. 


a. Radici Quadiate BEE 


Il programma utilizza una Casella combinata per immettere e me- 
morizzare valori numerici.Il pulsante di comando Calcola prele- 
va il valore numerico presente nell’area di immissione e ne calcola 
la radice quadrata, visualizzando quindi il numero e il risultato del- 
l'operazione nell’etichetta posta sotto la casella combinata. 


Nella tabella seguente viene schematizzata la struttura del form e 
dei controlli, indicandone le impostazioni. 
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Oggetto Proprietà Impostazione 

Form Name Form1 (default) 
Caption Radice quadrata 

Casella combinata Name chboNumbers 

Etichetta Name IblResult 

Pulsante di comando Name cmdCalculate 
Caption &Calcola 

Pulsante di comando — Name cmdQuit 
Caption &Esci 


Quello che segue è il listato del codice sorgente per la generazione 
della fisura precedente. 


Option Explicit 

Const MAX _NUMS = 5 

Private Sub cmdCalc_Click( ) 
Dim I As Integer 
Dim X As Double 
Dim ResStr As String 


If cboNumbers.Text < > "" Then 
' preleva il numero dall'area di immissione 
X = Abs(Val(cboNumbers.Text)) 
ResStr = "Sqrt(" + Mid(Str8X), 2) + ") =" 
' calcola la radice quadrata 
X = Sqr(X) 
resStr = ResStr + Mid(Str(X), 2) 
lblResult.Caption = ResStr 
' ricerca i duplicati 
For i = 0 To cboNumbers.ListCount -1 
If cboNumbers.Text = cboNumbers.List(I) Then 
Exit Sub 
Next I 
cboNumbers.AddItem chboNumbers.Text, 0 
' rimuove 'vecchi' elementi 
If cboNumbers.ListCount > MAX_NUMS Then 
cboNumbers.Remove.Item choNumbers.ListCount -1 
End If 
End If 
End Sub 
Private Sub Form Load( ) 
cboNumbers.Text = "" 
lblResult.Caption = "" 
End Sub 
Private Sub cmdQuit Click( ) 
End 
End Sub 
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Questo codice sorgente dichiara la costante MAX_NUMS che specifi- 
ca il numero massimo di voci da memorizzare nella componente 
elenco della casella combinata. Questo codice, inoltre, prevede la 
presenza dei seguenti gestori di evento. 


+ La procedura Form _Load( ) analizza l’area di immissione 
della casella combinata e assegna una stringa vuota ("") 
alla proprietà Caption dell'etichetta. 


+ La procedura cmdQuit_Click( ) risponde alla pressione 
del pulsante di comando Esci. 


+ La procedura cmdCalculate_Timer( ) risponde alla pres- 
sione del pulsante di comando Calcola ed esegue i seguenti 
passi. 


Preleva il testo contenuto nell’area di immissione della 
casella combinata e lo converte in un numero di tipo Dou - 
ble.Questa operazione è possibile accedendo al testo con 
la proprietà Text della casella combinata memorizzando 
quindi il numero nella variabile locale X. 


Costruisce la prima parte del testo dell’etichetta inseren- 
dola nella variabile StrRes. 


Calcola la radice quadrata del numero contenuto nella va- 
riabile X e memorizza il risultato di nuovo nella variabile X. 


Genera la seconda parte del testo dell’etichetta inseren- 
dola nella variabile stringa StrRes. 


Copia il testo della variabile StrRes nella proprietà Cap - 
tion dell’etichetta. Questa operazione visualizza il risul- 
tato dell’estrazione della radice quadrata. 


Ricerca nell’elenco delle voci, eventuali duplicati del te- 
sto contenuto all’interno dell’area di immissione della 
casella combinata.Questa operazione utilizza un ciclo For 
applicato alla componente di elenco del controllo. Tale 
ricerca prende in considerazione le proprietà ListCount, 
Text e List.Se il ciclo reperisce una concordanza, la pro- 
cedura verrà terminata.In caso contrario,la procedura ese- 
guirà le operazioni seguenti. 
1.Inserisce il testo della componente di immissione del- 
la casella combinata come prima voce della compo- 
nente elenco di voci. Questa operazione fa uso del me- 
todo AddItem( ) associandolo ai valori di argomento 
cboNumbers. Text e 0. 
2.Determina se la nuova voce numerica è superiore al 
valore definito dalla costante MAX_NUMS. Quando tale 
condizione è vera, la procedura rimuove l’ultima voce 
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della componente elenco della casella combinata ser- 
vendosi del metodo RemoveItem( ) e imposta il valore 
di argomento choNumbers.ListCount -1 
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<ENZ/0, 
Sole 


Un controllo Riquadro (Frame) viene utilizzato per raggruppare 
elementi quali, per esempio, caselle di controllo o pulsanti di op- 
zione. Un controllo Riquadro può anche essere utilizzato per suddi- 
videre un form in funzioni operative distinte. Quando si crea un 
controllo in un Riquadro, il Riquadro verrà considerato come ele- 
mento contenitore e “proprietario” del controllo in esso inserito. 
Pertanto, se il controllo Riquadro viene disabilitato o nascosto, que- 
sta operazione influirà anche su tutti i controlli nello stesso conte- 
nuti. 


Se si disabilita un controllo “Riquadro”si disabilitano anche i singo- 
li controlli dipendenti anche se questi, in effetti, non appariranno 
in grigio. Per intervenire sull'aspetto dei controlli dipendenti da una 
struttura sarà necessario, pertanto, operare singolarmente sugli stessi 
servendosi di codice che eviti all’utente possibili fraintendimenti. 
Si osservi la figura seguente nella quale sono contenuti alcuni con- 
trolli Riquadro per la gestione dei colori di sfondo o di primo pia- 
no del testo contenuto in un'etichetta. Il form qui esemplificato 
contiene l’etichetta “Ciao Mondo!”. 


==. Frame - Riquadrî BEE 
Giao Monda! 
F Colore sfondo — 7 { Calore pimo pm, 
poi i 
(NEI i 
I € Bing || | © Rosso ; 
i pai H 
LINO i 
| © Neo i | CB ; 
I O) | 
(C Grigio i {i C°.Giato 
j 


Nell'esempio il form contiene due oggetti Riquadro distinti: il pri- 
mo controllail colore di sfondo dell’etichetta tramite i pulsanti di 
opzione Bianco, Nero e Grigio mentre il secondo gestisce il colo- 
re del testo,servendosi,in questo caso, dei pulsanti di opzione Ros - 
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so, Blu e Giallo. Ogni controllo “Riquadro” prevede un proprio 
pulsante di comando (Disabilita) posto sotto la struttura stessa. a 


Quando l’utente farà clic su uno qualsiasi dei due pulsanti Disa- 
bilita, la struttura associata al pulsante stesso verrà completamente 
disabilitata e l'etichetta del pulsante verrà automaticamente modi- > 
ficata in Abilita. Quando l'utente farà clic su uno dei pulsanti di = 
comando Abilita, la struttura e i controlli corrispondenti verran- i 
no di nuovo abilitati e il pulsante stesso riporterà la dicitura Disa - ee 
bilita. EE 
Nella tabella seguente vengono schematizzati gli elementi del form, 
i relativi controlli e le loro impostazioni. 


Oggetto Proprietà Impostazione 
Form Name Form1 (default) I 
Caption Frame-Riquadri | 
Etichetta Name IblText | 
Frame Name grpBColor | 
Caption Colore sfondo 
Pulsante opzione Name optWhite 
Caption &Bianco 
Pulsante opzione Name optBlack 
Caption &Nero 
Pulsante opzione Name optGray 
Caption &Grigio 
Pulsante comando Name cmdDisableBC | 
Caption Disabilita 
Frame Name grpFColore 
Caption Colore primo piano 
Pulsante opzione Name optRed 
Caption &Rosso 
Pulsante opzione Name optYellow 
Caption &Giallo 
Pulsante opzione Name optBlue 
Caption &Blu 
Pulsante comando Name cmdDisableFC 


Caption Disabilita 


TORE SIANO, de ITA E TELO De e 
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Il codice sorgente per la realizzazione di questo programma è il 
seguente 


Private Sub cmdaDisableBC Click( ) 

If cmdDisableBC.Caption = "Abilita" Then 
grpBColor.Enabled = False 
cmaDisableBC.Caption = "Disabilita" 

Else 
grpBColor.Enabled = True 
cmdDisableBC.Caption = "Disabilita" 

End If 

' abilita/disabilita i pulsanti di opzione 

' mella medesima struttura contenitiva 

optWhite.Enabled = grpBColor.Enabled 

optBlack.Enabled = grpBColor.Enabled 
optGray.Enabled = grpBColor.Enabled 
End Sub 
Private Sub cmdDisableFC Click( ) 

If cmdDisableFC.Caption = "Disabilita" Then 
grpFColor.Enabled = False 
cmdDbisableFC.Caption = "Abilita" 

Else 
grpFColor.Enabled = True 
cmdDisableFC.Caption = "Disabilita" 

End If 

' abilita/disabilita i pulsanti di opzione 

' della struttura contenitiva corrispondente 

optRed.Enabled = grpFColor.Enabled 

optBlue.Enabled = grpFColor.Enabled 
optYellow.Enabled = grpFColor.Enabled 
End Sub 
Private Sub Form Load( ) 

' imposta l'etichetta e la dimensione del carattere 

lblText.Caption = "Ciao Mondo!" 

lblText.Font.Size = 24 

' seleziona i pulsanti di opzione 

optBlack.Value = True 

optYellow.Value = True 

End Sub 

Private Sub optBlack_Click( ) 
lblText.BackColor = vbBlack 

End Sub 

Private Sub optBlue Click( ) 
lblText.ForeColor = vbBlue 

End Sub 

Private Sub optGray_Click( ) 
lblText.BackColor = vbGray 

End Sub 

Private Sub optRed Click( ) 
lblText.ForeColor = vbRed 
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End Sub 

Private Sub optWhite Click( ) 
lblText.BackColor = vbWhite 

End Sub 

Private Sub optYellow Click( ) 
lblText.ForeColor = vbYellow 

End Sub 


La procedura Form_Load( ) inizializza il modulo eseguendo le se- 
guenti operazioni. 


+ Impostala proprietà Caption dell'etichetta su "Ciao Mon - 
do!”". 


+ Imposta la dimensione del carattere (font) del testo dell’eti- 
chetta a 24 punti. 


+ Seleziona il pulsante di opzione Nero del controllo Riqua- 
dro” Colore sfondo. 


+ Selezional’opzione Red del controllo“Riquadro”Colore pri- 
mo piano. 


Le procedure cmdWhite_Click( ),cmdBlack_Click( )e cmdGray_ 
Click( ) rispondono alle operazioni di clic dell’utente sui corri- 
spondenti pulsanti di opzione della struttura Colore sfondo asse- 
gnando i colori relativi alla proprietà BackColor del controllo eti- 
chetta. 


Le procedure cmdRed_Click( ),cmdBlue Click( ) e cmdYellow_ 
Click( ) rispondono alle operazioni di clic dell’utente sui corri- 
spondenti pulsanti di opzione e assegnano i colori relativi alla pro- 
prietà ForeColor del controllo etichetta. 


Le procedure cmdDisableBC Click( )ecmdDisableFC Click( ) 
rispondono alle operazioni di clic da parte dell’utente sui pulsanti 
comando Disabilita posti sotto i due controlli Riquadro avviando 
le seguenti operazioni. 


+ Esaminala proprietà Caption del pulsante di comando per 
determinare lo stato di abilitazione dell'oggetto Riquadro 
associato. Questa operazione si serve di un enunciato If che 
modifica la proprietà Enabled della struttura e aggiorna, di 
conseguenza, la proprietà Caption del pulsante di coman- 
do. 


+ Copia il nuovo valore della proprietà Enabled dell'oggetto 
Riquadro nelle proprietà Enabled dei pulsanti di opzione 
contenuti nella struttura.Questa operazione consente di fare 
apparire in grigio (ovvero temporaneamente non disponibi- 
li) le opzioni tutte le volte che la struttura che li contiene 
viene disabilitata. 
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Controllo “Elenco di voci” 


Il controllo Elenco di voci (List Box) visualizza un elenco di voci 
dal quale l’utente potrà selezionarne una o più di una, a seconda 
dello stile definito per l’interfaccia utente. L'utente non potrà ag- 
giungere, modificare o rimuovere direttamente elementi dall’elen- 
co; per consentire all’utente di eseguire queste operazioni è neces- 
sario utilizzare altri controlli associandoli con del codice. Il con- 
trollo Elenco di voci è in grado di riconoscere e facilitare la moda- 
lità di selezione multipla di elementi, servendosi, per questa opera- 


zione dei tasti Maiusc o Ctrl . 


Nella tabella seguente vengono indicate le proprietà più importan- 
ti di un controllo Elenco di voci. 


Commento 


Assegna alla prima 
voce dell'elenco il 
nome Guglielmo. 


Proprietà: sintassi Descrizione Esempio 
List: 1stBox.List Restituisce oimpostale 1lstNames. 
(indice) [= voci contenute in un List(0) = 
stringa] elenco di voci. "Guglielmo" 
ListCount: Restituisce ilnumero di If 1stNames. 


lstBox.ListCount 


elementi di un elenco di 
voci. 


ListIndex: 
lstBox.ListIndex 
[= indice] 


Estrae o imposta l'indi- 
ce della voce seleziona- 
ta all'interno dell'elenco. 
Proprietà non disponibi- 
le in fase di progettazio- 
ne del controllo. Quan- 
do non si effettua una 
selezione, a questa pro- 
prietà viene assegnato il 
valore -1. 


ListCount > 0 


Then lstNames. 


List(0) = 
"Guglielmo" 


SelIdx = 
lstNames. 
ListIndex 


Nel caso in cui il con- 
trollo non sia vuoto, 
sovrascrive il primo 
elemento di un con- 
trollo "Elenco di 
voci". 


Memorizza nella varia- 
bile SelIdx l'indice 
corrispondente all'ele- 
mento selezionato del- 
l'elenco. 


e _ 


Sorted: 
lstBox.Sorted 


Determina se gli ele- 
menti di un elenco di 
voci appaiono ordinati. 


If lstNames. 
Sorted Then 
miaNuovaVoce 
"io" Else 
lstNames. 
AddItem "io" 


Esamina la proprietà 
Sorted per determi- 
nare se usare o meno 
una procedura perso- 
nalizzata per inserire la 
voce “io” oppure se 
usare il metodo AddI - 
tem( ) perinserirela 
medesima voce. 


continua 


Proprietà: sintassi 


Style: 
lstBox.Style 
Nota. Si tratta di una 
proprietà di sola 
lettura. 


SelCount: 
lstBox.SelCount 


Selected: 
lstBox.Selected 
(indice) 

[= booleano] 


MultiSelect: 
lstBox.MultiSelect 


Nella tabella seguente vengono, invece, indicati i metodi associabi- 
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Descrizione 


Esempio 


Commento 


Determina lo stile di un 
elenco di voci. Il valore 0 
(vbListBoxStandard) 
viene assunto per de- 
fault e fa sì che il control- 
lo si comporti come un 
comune elenco di voci. 
Il valore 1(vbListBo- 
xCheckbox) fa sì che il 
controllo visualizzi un 
segno di spunta a fianco 
della voce selezionata. 


For Each Ctrl 


Inserisce la stringa 


In mioElenco Voci "io" a ogni elenco 
If Ctrl.Style = 0 divoci che ha lo stile 
Then Ctrl.AddItem di default. 


"io", 1 
End If 
Next Ctrl 


Restituisce il numero 
delle voci selezionate. 


If lstBox.Sel 
Count = 1 Then 
mioProcesso 
End If 


Determina se un 
elenco di voci contie- 
ne una selezione di 
una sola voce e, quin- 
di, la elabora. 


Restituisce o imposta lo 
stato di selezione di una 
voce all’interno di un 
elenco di voci. 


For I= 1 To 
lstBox. 

List Count 
lstBox.Selected(I) 
= True Next I 


Seleziona tutti gli ele- 
menti dell'elenco di 
voci 1stBox. 


Restituisce un valore 
che indica se l'utente 
potrà effettuare una se- 
lezione multipla di ele- 
menti di un elenco di 
voci. Il valore 0 significa 
che l'elenco consente 
solo la selezione di una 
sola voce; 1 indica la 
possibilità di selezione 
multipla; 2 consente di 
attivare una selezione 
multipla estesa (ossia 
conla possibilità di sele- 
zionare voci non conti- 
gue). Si tratta di una pro- 
prietà di sola lettura. 


SelMode = 
lstNames. 
MultiSelect 


li a un controllo “Elenco di voci”. 


Memorizza il valore 
della proprietà Mu1- 
tiSelect di un elen- 
co di voci e lo trasfe- 
risce alla variabile 
SelMode. 
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Metodo: sintassi 


AddItem: 
lstBox.AddItem 
voce, indice 
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Descrizione 


Inserisce un nuovo ele- 
mento in un elenco 
di voci. 


Esempio 


mioElenco.AddItem 
"jo", 


Commento 


Aggiunge la stringa 
“io” come primo ele- 
mento dell'elenco di 
voci. 


Clear: 
lstBox.Clear 


Removeltem: 
lstBox.RemoveItem 
indice 


Svuota l'elenco di voci. 


Rimuove dall'elenco di 
voci l'elemento specifi- 
cato da indice. 


lstNames.Clear 


mioElenco. 
Remove 0 


Svuota il contenuto 
dell'elenco di voci 
lstNames. 


Rimuove dall'elenco di 
voci mioElenco il pri- 
mo elemento. 


Nella tabella seguente vengono indicati gli eventi più importati as- 
sociabili a un controllo Elenco di voci. 


Evento 
Click 


Db1Click 


Scroll 


4 
G 

BE <V 
5 E 

S S 
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Descrizione 


Gestisce il clic all'interno dell'elenco di voci. 


Gestisce il doppio clic all'interno di un elenco di voci. Vie- 
ne di solito utilizzato per eseguire un'operazione sull'ele- 
mento selezionato. 


Gestisce lo scorrimento del contenuto dell'elenco di voci. 


DI Cose da) fare Z È [Dx] 


17/12/98 Incontro Banca 
28/12/98 Viaggioa Roma 


02/01/99 Pranzo da Gigi 
Aggiungi | Cancella | Esci 


Per maggiori informazioni controllo Elenco di voci, si consulti il 
libro Visual Basic 6 For Dummies di Wallace Wang (Apogeo, 1998). 


La figura seguente è il risultato di un programma che utilizza un 
controllo “Elenco di voci” per completare un semplice elenco di 
cose da fare. 
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Per inserire un nuovo elemento in un programma di voci l’utente 
dovrà scrivere il testo appropriato nella casella di immissione e quin- 
di fare clic sul pulsante di comando Aggiungi. Per eliminare un 
elemento dall’elenco di voci, l’utente dovrà selezionare la voce da 
rimuovere e quindi fare clic sul pulsante di comando Cancella. Il 
programma, in questo caso, rimuoverà dall'elenco la voce selezio- 
nata riportandola all’interno della casella di immissione dalla qua- 
le,successivamente, potrà essere di nuovo inserita nell’elenco stes- 
so. 


Nella tabella seguente vengono riepilogati gli oggetti che fanno parte 
del modulo e le loro proprietà. 


Oggetto Proprietà Impostazione 
Form Nome Form1 (default) 
Caption Cose da fare 
Elenco di voci © Name IstTasks 
Sorted True 
Casella di immissione Name txtTask 
Pulsante comando Name cmdAdd 
Caption &Aggiungi 
Pulsante comando Name cmdDel 
Caption &Cancella 
Pulsante comando Name cmdQuit 
Caption &Esci 


Ecco il codice sorgente che genera la figura precedente. 


Private Sub cmdAdd Click( ) 
Dim I As Integer 
If txtTasks.Text < > "" Then 
' ricerca eventuali duplicati 
For I = 0 To lstTasks.ListCount -1 
If txtTasks.Text = lstTasks.List(I) Then 
Exit Sub 
Next I 
lstTasks.AddItem txtTasks.text 
txtTasks.Text = "" 
End If 
End Sub 
Private Sub cmdDel Click( ) 
Dim Indice As Integer 
Indice = lstTasks.ListIndex 
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If Indice > -1 Then 


copia l'elemento selezionato 
nella casella di immissione 


txtTasks.text = lstTasks.List(Indice) 


rimuove l'elemento dall'elenco 


lstTasks.RemoveItem Indice 
End If 
End Sub 
Private Sub Form Load( ) 
txtTasks.Text "" 
End Sub 
Private Sub cmdQuit Click( ) 


End 


End Sub 


La procedura Form_Load( ) inizializza il form eliminando il testo 
dalla casella di immissione. La procedura cmdQuit_Click( ) chiu- 
de il form e conclude l’applicazione. 


La procedura cmdAdd_Click( ) risponde a un clic da parte del- 
l'utente sul pulsante di comando Aggiungi ed esegue le seguenti 
operazioni. 


+ Ricerca una voce nell’elenco che corrisponda al testo scrit- 


+ 


to nella casella di immissione. Questa operazione evita che 
l'utente immetta voci uguali a quelle già presenti nell’elen- 
co. La routine utilizza un ciclo For per confrontare il conte- 
nuto dell’elenco all’interno dell’intervallo 0 To 
lstTasks.ListCount -1.Il ciclo accede a ogni elemento 
dell’elenco servendosi della proprietà List e se una voce 
analizzata è uguale a quanto scritto nella casella di immis- 
sione, la routine viene conclusa senza inserire nell’elenco il 
contenuto della casella di immissione. 


Aggiunge all'elenco il contenuto della casella di immissio- 
ne. Questa operazione si serve del metodo AddItem( ). 


*+ Svuota dal contenuto la casella di immissione. 


La procedura cmdDel_Click( ) risponde a un'operazione di clic 
sul pulsante di comando Cancella eseguendo, quindi, le operazio- 
ni che seguono. 


> 
+ 


Assegna alla variabile locale Indice la proprietà List Index. 


Determina se una voce è stata selezionata confrontando con 
-1 il valore della variabile Indice. Se la variabile Indice 
contiene un valore superiore a -1, allora viene selezionato 
un elemento dell’elenco di voci e la procedura esegue le 
operazioni seguenti. 
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e Copia l'elemento selezionato nella casella di immissione. 
Questa operazione consente di accedere alla voce sele- 
zionata tramite la proprietà List e a un indice fornito dal- 
la variabile Indice. 


© Rimuove l’elemento selezionato servendosi del metodo 
Removeltem( ).Il valore dell'argomento per richiamare 
questo metodo corrisponde alla variabile Indice. 


Controllo “Pulsante opzione” 


Il controllo Pulsante di opzione (Option Button) è composto da un 
piccolo elemento circolare che, quando l’opzione corrispondente 
viene attivata, contiene un pallino nero (in caso contrario,il pulsan- 
te appare vuoto). A fianco del pulsante di opzione viene di solito 
inserita un’etichetta descrittiva dell’opzione associata. 


Tramite questo controllo si fornisce all’utente la possibilità di im- 
postare l'opzione su “vero/falso” (o su “sì/no”).I pulsanti di control- 
lo, quando fanno parte di un gruppo omogeneo (inserito di solito 
in un controllo“Riquadro”),si escludono l’uno con l’altro. Ciò signi- 
fica che, all’interno dello stesso gruppo omogeneo, sarà possibile 
attivare solo un'opzione. 


Le proprietà rilevanti di questo controllo sono Value e Caption e 
la sintassi generale per l’uso di Value è la seguente. 


OptionControl.Value [= booleano] 


La proprietà Value indica lo stato di un pulsante di opzione e i 
valori ammissibili per tale proprietà sono False (opzione disatti- 
vata) oppure True (opzione attivata). La proprietà Value può im- 
postare o verificare lo stato di un pulsante di opzione. 


Qui di seguito viene fornito un esempio di come sia possibile im- 
postare un controllo Pulsante di opzione. 


optBackup.Value = Not optBackup.Value 


Questo esempio modifica lo stato della proprietà Value servendo- 
si dell'operatore Not. 


La proprietà Caption visualizza un testo descrittivo da associare a 
un controllo Pulsante di opzione. La sintassi generale per l’uso di 
questa proprietà è la seguente. 


pulsanteOpzione.Caption [= stringa] 
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<SEMP/, 


La proprietà Caption non è altro che una stringa che visualizza il 
testo descrittivo dell'opzione associata al pulsante e quello seguente 
è un esempio di come applicare correttamente tale proprietà. 


Dim pulsanteOpzione, mieiControlli 

For Each pulsanteOpzione In mieiControlli 

If pulsanteOpzione.Caption = "Salvataggio automatico" Then 
pulsanteOpzione.Value = False ' svuota il pulsante 
Exit For ' Esce dal ciclo 

End If 

Next pulsanteOpzione 


L'esempio utilizza un ciclo For Each per ricercare il controllo Pul- 
sante di opzione nel quale la proprietà Caption è impostata su 
Salvataggio automatico. Quando il ciclo reperisce il pulsante di op- 
zione cercato, imposta la proprietà Value su False. 


La figura seguente è il risultato di un esempio che prevede l’uso di 
un controllo Pulsante di opzione che visualizza l’ora e la data di 
sistema. 


da Ora BEI 


11/22/98 10:30:04 PM 


Inizialmente, il form visualizza solo l’ora corrente e quando l’uten- 
te farà clic sul pulsante di opzione Data e Ora,nel modulo stesso, 
oltre all’ora, verrà visualizzata anche la data di sistema. Quando, 
invece, l'utente farà clic sul pulsante di opzione Ora, nel form verrà 
visualizzata solo l’ora. Nella tabella seguente si riportano le impo- 
stazioni dei vari elementi del modulo generato. 


Oggetto Proprietà Impostazione 

Modulo Name Form1 (default) 
Caption Ora 

Etichetta Name IblTime 

Temporizzatore (Timer) Name tmrTime 
Interval 1000 

Pulsante opzione Name optTime 
Caption &Ora 

Pulsante opzione Name optTimeDate 


Caption &Data e Ora 
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Quello che segue è il codice sorgente che gestisce il form. 


Option Explicit 

Private Sub ShowTime( ) 
Dim TStr As Variant 
TStr = Time 
If optTimeDate.Value = True Then 

TStr = TStr + Date 

End If 
lblTime.Caption = TStr 

End Sub 

Private Sub Form Load( ) 
lblTime.Caption = Time 

End Sub 

Private Sub optTime Click( ) 
ShowTime 

End Sub 

Private Sub optTimeDate Click( ) 
ShowTime 

End Sub 

Private Sub tmrTime_Timer( ) 
ShowTime 

End Sub 


Da questo codice sorgente risultano evidenti i seguenti gestori di 
evento. 


+ La procedura Form_Load( ),all’avvio dell’applicazione, vi- 
sualizza nell’etichetta del modulo l'ora. 


+ La procedura optTimer_Click( ) risponde a un clic del- 
l'utente sul pulsante di opzione Ora. Questa procedura ri- 
chiama la procedura ShowTime( ) per aggiornare la visua- 
lizzazipne, nell’etichetta del modulo, della data/ora di siste- 
ma. 


+ La procedura tmrTime_Timer( ) richiama, ogni secondo, la 
procedura ShowTime ( ) inmodo da aggiornare costantemente 
l'etichetta del modulo che riporta la data/ora di sistema. 


+ La procedura ShowTime( ),nel caso in cui l'opzione Ora 
risulti attiva, assegna l’ora corrente di sistema alla proprietà 
Caption dell'etichetta del modulo. Al contrario, se risulta se- 
lezionata l'opzione Data e Ora,la procedura include, nella 
proprietà Caption dell’etichetta del modulo, il valore corri- 
spondente alla data di sistema. 
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Controllo “Pulsanti Radio” 


Si veda il controllo “Pulsanti Opzione”. 


Controllo “Barra di scorrimento” 


NTASS, 


Visual Basic consente di creare anche i controlli Barra di scorri- 
mento verticale (Vertical Scroll Bar) e Barra di scorrimento oriz- 
zontale (Horizontal Scroll Bar). A parte le ovvie considerazioni sul- 
l'orientamento, questi due controlli sono molto simili poiché con- 
sentono entrambi all'utente di visualizzare e selezionare rapidamen- 
te un valore contenuto in un ampio intervallo di valori. I controlli 
per le barre di scorrimento orizzontale o verticale possono anche 
fornire una rappresentazione della posizione corrente di un valore 
particolare all’interno del programma. Nella tabella seguente ven- 
gono descritte le proprietà rilevanti dei controlli per le barre di scor 
rimento. 


Proprietà: sintassi Descrizione Esempio Commento 

Min: Restituisce o imposta scrTime.Min = Imposta a 0 
scrBar.Min il valore minimo di una ® la proprietà Min. 

[= valore] barra di scorrimento. 

Max: Restituisce o imposta serTime.Max = Imposta a 100 
scrBar.Max il valore massimo di una 199 il valore della 

[= valore] barra di scorrimento. proprietà Max. 
SmallChange: Restituisce o imposta l'in- scrTime.Small Imposta la proprietà 


scrBar.SmallChange 


[= valore] 


tervallo di modifica Change = 1 
della proprietà Value di 
una barra di scorrimento 
quando l'utente farà clic 
su una delle frecce di 
scorrimento poste agli 


estremi delle barre. 


Small Change a 1. 


LargeChange: 
scrBar.LargeChange 
[= valore] 


Restituisce o imposta la 
modifica della proprietà 
Value di una barra di 
scorrimento quando 
l'utente farà clic nelle 
aree poste tra le frecce 
di scorrimento poste 
alle estremità delle barre 
stesse e il pulsante 
di scorrimento. 


scrTime.Large 
Change = 10 


Imposta a 10 
la proprietà 
LargeChange. 


continua 


Controllo “Barra di scorrimento” 4G9 


Proprietà: sintassi Descrizione Esempio Commento 
Value: Restituisce o imposta la scrTime.Value Imposta la proprietà 
scBar.Value posizione corrente della = (scrTime. Min Value a un valore 
[ = value] barra di scorrimento e il + scrTime.Max) medio di quelli 
valore restituito è | 2 definiti dalle 
sempre contenuto proprietà Min e Max. 
nell'intervallo di valori 
definiti dalle proprietà 
Min e Max. 
Nella tabella seguente vengono, invece, descritti i principali eventi 
associabili alle barre di scorrimento. 
Evento Descrizione 
Scroll Gestisce lo scorrimento della barra. 
Change Gestisce la modifica del valore della barra di scorrimento. 
«SEI, 


La figura seguente è un esempio dell'utilizzo di una barra di scorri- 
mento orizzontale che consente di selezionare un numero com- 
preso tra 0 e 1000. 


Sconti! d-[0|x 
e Ì 
0 1000 
Ki J M 


Quando l'utente modificherà il valore dalla barra di controllo, que- 
sto verrà riflesso anche nella casella di immissione.In modo analo- 
go, quando l’utente scriverà un valore all’interno della casella di 
immissione, tale valore verrà riflesso anche a livello della barra di 
scorrimento. Nella tabella seguente vengono riportate le imposta- 
zioni per i controlli e per il modulo della figura precedente. 


Oggetto Proprietà Impostazione 

Form Name Form1 (default) 
Caption Scorri! 

Etichetta Name IblMin 

Etichetta Name IblMax 

Casella di modifica Name txtValue 


Barra scorrimento Name scrValue 
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Quello che segue è il codice sorgente per l'applicazione. 


Option Explicit 
Const MIN VAL = 0 
Const MAX_VAL = 1000 


Private Sub Form _Load( ) 
' inizializza la barra di scorrimento 
scrValue.Min = MIN_VAL 
scrValue.Max = MAX_VAL 
scrValue.SmallChange = 1 s 
scrValue.LargeChange = (MAX_VAL - MIN _VAL) / 10 
scrValue.Value = MIN_VAL 
' inizializza gli altri controlli 
lblMin.Caption = Str(MIN_VAL) 
lblMax.Caption = Str(MAX_VAL) 
txtValue.Text = Mid(Str(MIN VAL), 2) 
End Sub 
Private Sub scrValue Change( ) 
txtValue.Text = Mid(Str(scrValue.Value), 2) 
End Sub 
Private Sub scrValue Scroll( ) 
txtValueText = Mid(Str(scrValue.Value), 2) 
End Sub 
Private Sub txtValue Change( ) 
Dim StrVal As Integer 
StrVal = Val(txtValue.Text) 
If StrVal >= scrValue.Min And StrVal <= scrValue.Max 
Then 
scrValue.Value = StrVal 
End If 
End Sub 


I 


In questo codice si dichiarano le costanti MIN_VAL e MAX_VAL che 
definiscono l’intervallo dei valori ammissibili (0 e 1000) nella bar 
ra di scorrimento. La procedura Form_Load( ) inizializza le pro- 
prietà più importanti del controllo Barra di scorrimento, il testo delle 
etichette e quello degli altri controlli ed esegue le seguenti opera- 
zioni. 

+ Assegnaalla proprietà Min del controllo Barra di scorrimento 

il valore della costante MIN_VAL. 


+ Assegna alla proprietà Max della Barra di scorrimento il va- 
lore della costante VAL_MAX. 


+ Assegnaalla proprietà Snal1Change della Barra di scorrimen- 
to il valore 1. 


+ Assegna alla proprietà LargeChange della barra di scorri- 
mento l’espressione (MAX_VAL - MIN_VAL) / 10. 
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+ Assegnaalla proprietà Value della Barra di scorrimento il 
valore della costante MIN_VAL. 


+ Assegnaall’etichetta 1blMin il valore della costante MIN_VAL 
convertito in stringa. Questa operazione visualizza “0”, che 
corrisponde al valore minimo dell’intervallo di valori per la 
Barra di scorrimento. 


+ Assegnaall’etichetta 1b1lMax il valore della costante MAX_VAL 
convertito in stringa.Questa operazione visualizza“1000”,che 
corrisponde al valore massimo dell’intervallo di valori per 
la Barra di scorrimento. 


+ Assegna alla casella di modifica il valore della costante 
MIN_VAL convertito in stringa. Questa operazione fa sì che 
nella casella di immissione appaia “0”, corrispondente al va- 
lore corrente della Barra di scorrimento. 


Inoltre, questo codice contiene i seguenti eventi. 


+ Laprocedura scrVvalue_Change( ) risponde all'evento Chan - 
ge della Barra di scorrimento e scrive la stringa corrispon- 
dente nella casella di immissione. 


+ La procedura scrValue_Scroll( ) risponde all'evento 
Scroll della Barra di scorrimento e scrive all’interno della 
casella di modifica l’immagine della stringa del valore rag- 
giunto dalla barra di scorrimento. 


+ LaproceduratxtValue_Change( ) risponde all'evento Change 
della casella di immissione e converte il testo immesso nella 
casella stessa in un valore numerico intero. A questo punto il 
valore viene assegnato alla barra di scorrimento sempre che 
questo sia compreso nell’intervallo di valori definito dalle 
proprietà Min e Max della barra di scorrimento stessa. 


Controllo “Testo Statico” 


Il controllo Testo statico (Label),definito anche etichetta, visualizza 
un testo per quei controlli che, di solito, non prevedono la presenza 
di un’etichetta, come gli elenchi di voci. Per esempio, accanto a un 
controllo Elenco di voci si potrà inserire un’etichetta la cui pro- 
prietà Caption potrà essere impostata come Paesi:, per indicare 
che l'elenco di voci riporta una serie di nomi di nazioni. Un con- 
trollo Testo statico può essere anche utilizzato per visualizzare in- 
formazioni aggiornabili quali, per esempio, l'indicazione della car 
tella attiva. Lo stesso tipo di controllo si potrà utilizzare anche per 
informare l’utente che il controllo associato richiede l'immissione 
di un testo o l’avvio di un'operazione particolare. Di solito, un con- 
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trollo Testo statico non viene definito per rispondere a eventi del- 
l'utente anche se si potrà definirlo perché risponda a operazioni 
quali clic o spostamenti del mouse. 


Nella tabella seguente vengono visualizzate le proprietà più impor 
tanti che si possono associare al controllo Testo statico. 


Proprietà: sintassi Scopo Esempio Commento 

Caption: Restituisce o imposta il 1lb1lNomeFile. Imposta su Nome file: 

oggetto .Caption testo diun controllo Te- Caption la proprietà Caption di 

[= stringa] sto statico. = "Nome file:" un'etichetta. 

ForeColor: Restituisce o imposta il  1blText. Imposta il colore del 

oggetto. ForeColor colore del testo di Fore Color testo dell'etichetta in 

[= numero un'etichetta. = vbRed modo che appaia in 

colore] rosso. 

BackColor: Restituisce o imposta il  1blText. Imposta sul rosso il co- 

oggetto .BackColor colore di sfondo di Back Color lore di sfondo di un'eti- 

[= numero un'etichetta. = vbRed chetta. 

colore] 

FontName: Restituisce o imposta il 1blText. Imposta su “Arial” il 

oggetto. Fontname tipo di carattere (font)  FontName tipo di carattere da ap- 

[= stringa] da applicare al testo = "Arial" plicare altesto dell'eti- 
- dell'etichetta. chetta. 

FontSize: Restituisce oimpostala 1lblText. Imposta a 24 la dimen- 

oggetto .FontSize dimensione del carat- Font Size sione del carattere da 

[= numero] tere da applicare alte- = 24 applicare al testo del- 

sto dell'etichetta. l'etichetta. 


La figura seguente mostra un esempio del risultato di un’applica- 
zione che utilizza controlli di tipo Testo statico. L'esempio visualiz- 
za un controllo Testo statico e tre pulsanti di comando, ognuno dei 
quali imposta nuovi valori per il testo, il tipo di carattere e la sua 
dimensione all’interno dell’etichetta. 


=. Ilesto statico i _[0]x| 


Courier 18 


Testo] 
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Nella tabella seguente si riportano le proprietà degli elementi con- 
tenuti nella finestra. 


Oggetto Proprietà Impostazione 

Form Name Form1 (default) 
Caption Etichette 

Etichetta Name IblText 

Pulsante comando Name cmdTexti 
Caption Testo 1 

Pulsante comando Name cmdText2 
Caption Testo 2 

Pulsante comando Name cmdText3 
Caption Testo 3 


Di seguito viene presentato il codice sorgente dell’applicazione. 


Option Explicit 

Private Sub cmdText1 Click( ) 
lblText.Caption = "Arial 24" 
lblText.FontName = "Arial" 
lblText.FontSize = 24 
lblText.ForeColor = vbRed 

End Sub 

Private Sub cmdText2 Click( ) 
lblText.Caption = "Courier 18" 
lblText.FontName = "Courier" 
lblText.FontSize = 18 
lblText.ForeColor = vbBlue 

End Sub 

Private Sub cmdText2_Click( ) 
lblText.Caption = "Times Roman 20" 
lblText.FontName = "Times Roman" 
lblText.FontSize = 20 
lblText.ForeColor = vbYellow 

End Sub 


La procedura cmdText1_Click( ) risponde al clic dell'utente sul 
pulsante di comando Testo 1 eseguendo le operazioni seguenti. 


+ Assegnaalla proprietà Caption dell’etichetta ilvalore Arial 24. 

+ Assegnaalla proprietà FontName dell'etichetta il valore Arial. 
+ Assegna alla proprietà FontSize dell’etichetta il valore 24. 
+ 


Assègna alla proprietà ForeColor dell’etichetta il valore 
vbRed (testo in rosso). 
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La procedura cmdText2_Click( ) risponde al clic dell'utente sul 
pulsante di comando Testo 2 eseguendo le operazioni seguenti. 


+ Assegnaalla proprietà Caption dell’etichetta il valore Cou- 
rier 18. 


+ Assegnaalla proprietà FontName dell'etichetta il valore Cou- 
rier. 


+ Assegna alla proprietà FontSize dell'etichetta il valore 18. 


+ Assegna alla proprietà ForeColor dell'etichetta il valore 
vbBlue (testo in blu). 


La procedura cmdText3_Click( ) risponde al clic dell'utente sul 
pulsante di comando Testo 3 eseguendo le operazioni seguenti. 


+ Assegna alla proprietà Caption dell’etichetta il valore Ti- 
mes Roman 20. 


+ Assegna alla proprietà FontName dell’etichetta il valore Ti - 
mes Roman. 


+ Assegna alla proprietà FontSize dell'etichetta il valore 20. 


+ Assegna alla proprietà ForeColor dell’etichetta il valore 
vbYellow (testo in giallo). 


Controllo “Casella di testo” 


Il controllo Casella di testo (Text Box), definito anche casella di 
immissione, consente di immettere informazioni sia in fase di pro- 
gettazione sia in fase di esecuzione dell’applicazione. 


Nella tabella seguente si riportano le proprietà più importanti del 
controllo Casella di testo. Gli eventi più rilevanti per questo tipo di 
controllo sono, invece, Click, GotFocus. LostFocus, Change ed al- 
tri eventi collegati alla pressione di alcuni tasti. 


Proprietà: sintassi Scopo Esempio Commento 


Text: Restituisce o imposta il txtName.Text = Memorizza nella proprie- 
oggetto. Text testo della casella dilm- "Marzia" tà Text della casella di 
[= stringa] missione. testo il nome "Marzia". 

Enabled: Restituisce o impostalo txtName.Enabled Disabilita l'immissione 


oggetto .Enabled stato di abilitazione per = False ditesto nella casella di 


[= booleano] 


la casella di testo. 


immissione. 


Visible: 
oggetto.Visible 
[= booleano] 


Restituisce o imposta la 
visibilità della casella di 
testo. 


txtName.Visible 
= True 


Nasconde la casella 
di testo. 


continua 
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Proprietà: sintassi Scopo Esempio Commento 
MultiLine: Restituisce la modalità If Not Se la proprietà Multi - 
oggetto.MultiLine dicaselladitesto supiù txtName.MultiLine Line è falsa, imposta 
righe. Then la variabile numLines 
numLines = sul. 
1End If 


Per maggiori informazioni sul controllo Casella di testo, si consulti 
il libro Visual Basic 6 For Dummies di Wallace Wang (Apogeo, 1998). 


La figura seguente è il risultato di un'applicazione che utilizza con- 
trolli Casella di testo. 


=. Demo Casella diltesto PIE 
Maiuscole MsusL 
Minuscole fase 
Cilre fr234se78s 


Qualsiasi testo 


Il modulo presenta le seguenti caselle di immissione. 


+ Maiuscole che accetta caratteri alfabetici e li converte au- 
tomaticamente in lettere maiuscole. 


+ Minuscole che accetta caratteri alfabetici e li converte au- 
tomaticamente in lettere minuscole. 


+ Cifre che accetta l’immissione solo di numeri. 


+ Qualsiasi testo che accetta qualsiasi carattere alfanume- 
rico e prevede una possibilità di sviluppo su più righe. 


Nella tabella seguente vengono riportate le impostazioni delle pro- 
prietà dei controlli e del form stesso. 


50 


Controllo “Casella di testo” 


Oggetto Proprietà Impostazione 
Form Name Form1 (default) 
Caption Demo Casella di testo 
Etichetta Name IblUpperCase 
Caption Maiuscole 
Etichetta Name IblLowerCase 
Caption Minuscole 
Etichetta Name IblDigits 
Caption Cifre 
Label Name IblAnyText 
Caption Qualsiasi testo 
Casella testo Name txtUpperCase 
Text (vuoto) 
Casella testo Name txtLowerCase 
Text (vuoto) 
Casella testo Name txtDigits 
Text (vuoto) 
Casella testo Name txtAnyText 
Text (vuoto) 
MultiLine True 


Ecco il codice sorgente per l'applicazione. 


Private Sub txtAnyText_GotFocus( ) 
If txtAnyText.Text = " " Then 
txtAnyText.Text = "Ciao!" 
End If 
End Sub 
Private Sub txtDigits_KeyPress(KeyAscii As Integer) 
If InStr("0123456789", Chr(KeyAscii)) = 0 Then 
KeyAscii = 0 
End If 
End Sub 
Private Sub txtLowerCase_KeyPress(KeyAscii As Integer) 
If KeyAscii >= Asc("a") Or KeyAscii <= Asc("Z") Then 
KeyAscii = KeyAscii + Asc("a") - Asc("A") 
ElseIf KeyAscii >= Asc("a" Or KeyAscii <= Asc("z") Then 
Exit Sub 
Else 
KeyAscii = 0 
End If 
End Sub 
Private Sub txtUpperCase_KeyPress(KeyAscii As Integer) 
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If KeyAscii >= Asc("a" Or KeyAscii <= Asc("z") Then 
KeyAscii = KeyAscii - Asc("a") + Asc("A") 
ElseIf KeyAscii >= Asc("A") Or KeyAscii <= Asc("Z") 
Then 
Exit Sub 
Else 
KeyAscii = 0 
End If 
End Sub 


La procedura txtAnyText_GotFocus( ) risponde all’evento GotFo - 
cus della casella di testo AnyText.La routine utilizza un enunciato 
If per determinare se la casella non contiene alcun testo.Quando 
questa combinazione risulta vera, la routine scrive nella casella Any 
Text la stringa Ciao!. 


La procedura txtDigits_KeyPress( ) risponde all'operazione di 
immissione nella casella Cifre.La procedura prevede l'argomento 
KeyAscii di tipo Integer, che rappresenta il codice ASCII (Ameri- 
can Standard Code for Information Interchange) per il carattere im- 
messo. La routine usa un enunciato If per determinare se il carat- 
tere digitato corrisponde a un numero. La condizione dell’enuncia- 
to If richiama la funzione InStr( ) e confronta il risultato della 
funzione con il valore 0. Quando questa condizione risulta vera 
(ovvero quando l’utente ha inserito un carattere non numerico) il 
gestore di evento assegna all'argomento KeyAscii il valore“0”.Que- 
sto valore ignora, sostanzialmente, le immissioni dell’utente e le in- 
via a un “buco nero”. 


La procedura txtLowerCase_KeyPress( ) risponde alle immissio- 
ni dell’utente nella casella di testo Maiuscole verificando le con- 
dizioni seguenti tramite un enunciato If con più alternative. 


+ Quando il carattere immesso dall’utente è maiuscolo, il ge- 
store di evento lo converte in minuscolo modificando il va- 
lore dell'argomento KeyAscii. 


+ Seilcarattere immesso è in minuscolo, l’evento si interrom- 
pe poiché il valore dell'argomento KeyAscii è corretto (il 
carattere immesso è minuscolo). 


+ Quando il carattere immesso non è alfabetico, il gestore di 
evento assegna all'argomento KeyAscii il valore o,ignoran- 
do così l'immissione. 


La procedura txtUppercase_KeyPress( ) è gestore di evento e 
risponde alle immissioni dell’utente nella casella di testo Upper Case 
verificando le condizioni seguenti tramite un enunciato If con più 
alternative. 
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+ Quando il carattere immesso dall'utente è minuscolo, il ge- 
store di evento lo converte in maiuscolo modificando il va- 
lore dell'argomento KeyAscii. 


+ Seil carattere immesso è maiuscolo, l'evento si interrompe 
poiché il valore dell'argomento KeyAscii è corretto (il ca- 
rattere immesso è maiuscolo). 


+ Quando il carattere immesso non è alfabetico, il gestore di 
evento assegna all'argomento KeyAscii il valore 0,ignoran- 
do così l'immissione. 


Classi e tipi di dati 


In questa parte vengono presi in considerazione argomenti 

quali la creazione e l’uso delle classi e dei tipi di dati. Ven- 

gono anche prese in esame variabili e costanti e si descrive- 

rà come utilizzare i vari operatori per confrontare i tipi di 

dati, le variabili e le costanti. 

Argomenti trattati 

v Creazione e uso delle classi 

v I vari tipi di dati di Visual Basic 

v Definizione di tipi di dati enumerati e di altri 
tipi di dati 

v Uso degli operatori Visual Basic 


v Variabili e costanti 
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Creazione di tipi di dati personalizzati 


Visual Basic permette di dichiarare propri tipi di dati personalizzati 
servendosi, per questa operazione, dell’enunciato Type.L'uso di que- 
sto enunciato all’interno di un modulo consente di dichiarare un 
tipo di dati personalizzato contenente uno o più elementi. 


Vedi anche: in questa parte, la sezione che descrive l’uso dei tipi 
di dati personalizzati. 


La sintassi generale per dichiarare un tipo di dati personalizzato è 
la seguente. 


[Private | Public] Type nomeTipo 
nomeElemento [([subscripts])] As tipo 
[nomeElemento [([subscripts])] As tipo] 


End Type 

La parola chiave facoltativa Public fa sì che il tipo di dati persona- 
lizzato sia disponibile per tutte le procedure di tutti i moduli del 
progetto.La parola chiave Private, al contrario,indica che il tipo di 
dati personalizzato è disponibile solo all’interno del modulo nel 
quale il tipo di dati è stato dichiarato. La voce nomeTipo che com- 
pare dopo la parola chiave Type, corrisponde al nome assegnato al 


tipo di dati personalizzato e deve obbedire alle convenzioni stan- 
dard per la creazione dei nomi in Visual Basic. 


La voce nomeElemento corrisponde al nome di un elemento del 
tipo di dati personalizzato e deve anch’essa assoggettarsi alle con- 
venzioni standard per l'assegnazione di nomi di variabili, con la 
sola eccezione che è possibile anche utilizzare parole chiave. La 
parte subscripts specifica le dimensioni di un elemento matrice 
(array).Per dichiarare una matrice di dimensione variabile si uti- 
lizzino solo le parentesi tonde senza racchiudervi alcunché. 


L'argomento subscripts prevede la sintassi seguente. 


[min To] max [,[min To] max] 


Quando si omette di scrivere la parte min, il limite inferiore della 
matrice viene controllato dall’enunciato Option Base.Per default, 
se non si utilizza l’enunciato Option Base,il limite inferiore è pari 
ad. 


tipo specifica il tipo di dati dell'elemento e può essere pari a Byte, 
Boolean,Integer,Long,Currency,Single,Double,Date,String (per 
le stringhe di lunghezza variabile), String * lunghezza (per le 
stringhe a lunghezza fissa), Object, Variant o un qualsiasi altro 
tipo di dato o di oggetto personalizzato. 
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Per maggiori informazioni circa la creazione di tipi di dati persona- 
lizzati, si consulti il libro Visual Basic 6 For Dummies di Wallace 
Wang (Apogeo, 1998). 


Quello che segue è un esempio di come impostare un tipo di dati 
personalizzato. 


Type DatiGioco 
IniziaGioco As Boolean 
NumeroIterazioni As Integer 
MaxIterazioni As Integer 
Segreto As Byte 
Indovina As Byte 
Messaggio As String 

End Type 


Questo esempio dichiara il tipo di dati personalizzato DatiGioco 
nel quale memorizzare le informazioni in un ipotetico gioco per 
indovinare un numero segreto. 


Il tipo di dati personalizzato contiene i seguenti elementi. 


+ 


Da 


L'elemento IniziaGioco è di tipo Boolean e serve come indi- 
catore per verificare se il gioco è o meno ancora in corso. 


L'elemento NumeroIterazioni è di tipo Integer e memo- 
rizza il numero di tentativi per indovinare un numero segre- 
to. 


L'elemento MaxIterazioni è di tipo Integer e memorizza 
il numero massimo dei tentativi ammissibili per indovinare 
il numero segreto. 


L'elemento Segreto è di tipo Byte e contiene il numero 
segreto da indovinare. 


L'elemento Indovina è di tipo Byte e memorizza il numero 
che si presume sia quello segreto. 


L'elemento Messaggio è di tipo String e memorizza il mes- 
saggio che dà informazioni nel corso della sessione di gio- 
co. 


Quello che segue è un altro esempio di come definire un tipo di 
dati personalizzato: questa volta vengono usati elementi che sono 
delle matrici. 


Type MiniFoglioCalcolo 
NumRighe As Byte 
NumCol As Byte 
Celle(50, 50) As Double 
SommaCo1(50) As Double 
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SommaRighe(50) As Double 

SegnalaErrore As Boolean 

MessaggioErrore As String 
End Type 


Questo esempio dichiara il tipo di dati personalizzato MiniFoglio - 
Calcolo per memorizzare le informazioni contenute in un foglio 
di calcolo di dimensioni molto limitate. Il tipo di dati personalizza- 
to prevede i seguenti elementi. 


+ L'elemento NumRighe è di tipo Byte e memorizza il numero 
delle righe contenenti dati. 


+ L'elemento NumCol è di tipo Byte e memorizza il numero 
delle colonne contenenti dati. 


+ L'elemento Celle è di tipo Double e memorizza i dati in una 
matrice bidimensionale composta da 51 righe e 51 colonne. 


+ L'elemento SommaRighe è di tipo Double e memorizza la som- 
ma delle righe di una matrice monodimensionale compo- 
sta da 51 elementi. 


+ L'elemento SommaCol è di tipo Double e memorizza la som- 
ma delle righe di una matrice monodimensionale compo- 
sta da 51 elementi. 


+ L'elemento SegnalaErrore è di tipo Boolean e corrisponde 
a una indicazione di errore. 


+ L'elemento MessaggiErrore è di tipo String e memorizza i 
messaggi di errore. 


Creazione di tipi enumerati personali 


Visual Basic, tramite l’enunciato Enum, permette di dichiarare un 
tipo di enumerazione. Questo tipo di dati particolare permette di 
elencare una serie di costanti che descrivono i vari stati o valori di 
qualche oggetto. Per esempio, si potrà dichiarare un tipo Enum che 
elenchi i giorni della settimana. 


Vedi anche: in questa parte, la sezione che descrive l’uso di tipi 
enumerati personali. 


La sintassi generale per l’enunciato Enum, è la seguente. 


[Public | Private] Enum nome 
nomemembro [= espressioneCostante] 
nomemembro [= espressioneCostante] 


End Enum 
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La parola chiave facoltativa Public indica che il tipo Enum sarà 
disponibile per tutto il progetto. Per default, i tipi Enum sono Pu- 
blic.La parola chiave facoltativa Private, al contrario, indica che 
il tipo Enum sarà disponibile solo all’interno del modulo che con- 
tiene il tipo di dati stesso. 


La parte nome specifica il nome del tipo Enum e deve seguire le 
convenzioni standard per l'assegnazione dei nomi.Visual Basic ri- 
conosce la parte nome come un tipo di dati solo quando vengono 
dichiarate le variabili o i parametri del tipo Enum. La parte nome- 
membro corrisponde al nome in base al quale viene riconosciuto 
l'elemento costitutivo del tipo di dati Enum. 


La parte espressioneCostante è un valore facoltativo dell'elemento 
(esegue una valutazione fino al tipo Long).Il valore corrisponden- 
te può essere specificato in un altro tipo Enume se si omette la parte 
espressioneCostante,Visual Basic assegnerà il valore @ (se si trat- 
ta del primo nomemembro) o 1 più il valore di nomemembro imme- 
diatamente precedente. 


Viene ora fornito un esempio di un tipo di dati Enum. 


Enum Giorni 
GiornoNonValido = 0 
Lunedì 
Martedì 
Mercoledì 
Giovedì 
Venerdì 
Sabato 
Domenica 

End Enum 


Questo esempio dichiara Giorni come tipo di dati Enum.Il primo 
membro del tipo di dati corrisponde a GiornoNonValido e allo 
stesso viene esplicitamente assegnato il valore 0.Il secondo mem- 
bro è Lunedì senza associazione ad alcun valore esplicito. Visual 
Basic, in questo caso, assegnerà a Lunedì il valore 1 (che corri 
sponde al valore di GiornoNonValido [0] incrementato di 1).Il tipo 
Enum contiene altri nomi di membri corrispondenti agli altri giorni 
della settimana ai quali Visual Basic assegnerà, rispettivamente, i 
valori da 2 a 7.Poiché è stato omesso l’argomento espressioneCo- 
stante,Visual Basic assegnerà automaticamente a ogni giorno del- 
la settimana il numero del membro precedente, incrementato di 1. 


04 Tipi di dati di Visual Basic 


Tipi di dati di Visual Basic 


Visual Basic è dotato di una serie di tipi di dati predefiniti elencati 
nella tabella seguente nella quale si indica anche il nome, la di- 
mensione di memorizzazione e l’intervallo di azione di ogni tipo di 


dati. 
Tipo di dati Dimensione Intervallo memorizzazione 
Byte 1 byte da 0 a 255 
Boolean 2 byte True o False 
Integer 2 byte Da 32.768 a 32.767 
Long (intero lungo) 4 byte Da —2.147.483.648 a 
2.147.483.647 
Single (virgola 4 byte Da -3,402823E38 a —1,401298E-45 per la 
mobile semplice) precisione dei valori negativi e da 
1,401298E-45 a 3,402823E88 per la preci- 
sione dei numeri positivi. 
Double (virgola mobile 8 byte -4,94065645841247E-324 per i valori ne- 
a doppia precisione) gativi e 4.940656458 41247E-324 peri va- 
lori positivi. 
Currency (interi scalari) 8 byte Da —922.337.203. 685. 477,5808 a 922.337. 
203.685.477,5807”. 
Decimal 14 byte +/-79.228.162.514.264.337.593.543.950.335 
senza cifra decimale e +/-7,922816251426 
4337593543950335 con 28 cifre decimali 
dopo la virgola. Il valore minimo diverso da 
zero è pari a +/-0,000000000000000000000 
0000001. 
Date 8 byte Dal 1 gennaio 100 al 31 dicembre 9999. 
Object 4 byte Qualsiasi riferimento a oggetto. 
String 10 byte Da 0 ad, approssimativamente, 2 miliardi. 
+ lunghezza 
stringa 
String Lunghezza da 1 ad, approssimativamente, 65.400. 
della stringa 
Variant (con numeri) 16 byte Un qualsiasi valore numerico fino all’in- 
tervallo di Double. 
Variant 22 byte Da 0 ad, approssimativamente, 2 miliardi. 
+ lunghezza 
stringa 


continua 
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Tipo di dati Dimensione Intervallo memorizzazione 
Personalizzato Numero richiesto L'intervallo di ogni elemento è identico a 
(definito da Type) dagli elementi quello dell'intervallo per il tipo di dati. 


Dichiarazione classi 


Visual Basic consente di dichiarare una classe che specifichi gli 
elementi di dati e i metodi relativi. I progetti Visual Basic memoriz- 
zano le classi in file separati con estensione “.CLS”. Per aggiungere 
un file classe si avvii il comando Progetto Inserisci modulo di 
classe. 


Gli elementi dati che vengono specificati in una classe possono 
essere tipi di dati predefiniti, personalizzati, enumerati personali, 0 
altre classi. 


Vedi anche: in questa parte, la sezione che descrive come usare le 
classi. 


La sintassi generale per dichiarare un elemento dati è la seguente. 


[Private | Public] elementoDati As tipo 


La parola chiave Private dichiara un elemento dati che sarà ac- 
cessibile solo alle routine della medesima classe. Al contrario, la 
parola chiave Public rende disponibili gli elementi dati anche dal- 
l'esterno del modulo classe. 


ASIO + Molti programmatori consigliano di dichiarare gli elementi 
È classe come Private in modo da poter controllare l’acces- 
v so a tali elementi. Le funzioni e le procedure della classe 


possono regolare l’accesso agli elementi dati per assicurare 
che le informazioni contenute negli elementi dati stessi non 
vengano danneggiate da accessi non appropriati provenienti 
da altri moduli. 


+ Molti programmatori consigliano di dichiarare le routine 
come Private tutte le volte che queste operano con altre 
routine della stessa classe. 


Si ha la possibilità di dichiarare funzioni e procedure in modo che 
queste si comportino come metodi che siano in grado di manipo- 
lare elementi dati interni alla classe. Una routine può essere dichia- 
rata come Public o Private.Nel primo saranno accessibili ai com- 
ponenti di altre classi o altri moduli mentre le routine dichiarate 
come Private potranno operare solo con altre routine della stes- 
sa classe. 


Dichiarazione classi 


Per maggiori informazioni sulle classi, si consulti il libro Visual Ba- 
sic 6 For Dummies di Wallace Wang (Apogeo, 1998). 


Ecco un esempio di codice per la dichiarazione di una classe. 


Option Explicit 
Private mintXCoord As Integer 
Private mintXCoord As Integer 


Public Sub MoveTo(X As Integer, Y As Integer) 
mintXCoord = X 
mintYCoord = Y 

End Sub 

Public Sub MoveBy(XDist As Integer, YDist As Integer) 
mintXCoord = mintXCoord + XDist 
mintYCoord = mintYCoord + YDist 

End Sub 

Function GetX( ) As Integer 
GetX = mintXCoord 

End Function 

Function GetY( ) As Integer 
GetY = mintYCoord 

End Function 

Public SubMove ToCoord(Coord As CPoint) 
mintXCoord = Coord. GetX 
mintYCoord = Coord.GetY 

End Sub 


In questo codice si dichiara la classe Point che prevede i seguenti 
elementi dati. 


+ L'elemento dati mintXCoord di tipo Private Integer che 
memorizza il valore della coordinata X. 


+ L'elemento dati mintYCoord di tipo Private Integer che 
memorizza il valore della coordinata Y. 


La classe dichiara inoltre le routine MoveTo( ),MoveBy( ),GetX( ), 
GetY( ) e MoveToCoord( ).La procedura MoveTo( ) prevede gli 
argomenti X e Y di tipo Integer che specificano le nuove coordi 
nate.La procedura copia i valori di questi argomenti negli elementi 
dati mintXCoord e mintYCoord. 


La procedura MoveBy( ) prevede gli argomenti XDist e YDist di 
tipo Integer che specificano lo spostamento delle coordinate X e Y. 
La procedura aggiunge i valori di questi argomenti agli elementi dati 
mintXCoord e mintYCoord.Le funzioni GetX( ) e GetY( ) restitui- 
scono i valori degli elementi dati mintXCoord e mintYCoord. 
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La procedura MoveToCoord( ) copia le coordinate dell'argomento 
Coord di tipo CPoint (che è un'istanza della classe CPoint) negli 
elementi dati mintXCoord e mintYCoord. Si osservi che la procedu- 
ra accede agli elementi dati degli argomenti Coord servendosi del- 
le funzioni GetX( ) e GetY( ) poiché gli elementi dati sono stati 
definiti come Private. 


Uso degli operatori aritmetici 


Visual Basic prevede la presenza di una serie di operatori aritmeti- 
ci i cui singoli significati vengono descritti nella tabella seguente. 
Questi operatori consentono di eseguire operazioni di calcolo su 
dati numerici. 


Operatore Sintassi Commenti Esempio 
+ espressionel Esegue la somma di 23 + 45 che genera il 
+ espressione? due valori. risultato 68. 
= espressionet Esegue la sottrazione 100 - 45 che genera il 
- espressione 2 di due valori. risultato 55. 
* espressionet Esegue la moltiplica- 0.34 * 23.45 che 
*espressione2 zione di due valori. genera il risultato 7.9730. 
/ espressione 1 Esegue la divisione di 355.2 / 113.1 che 
| espressione? due valori per genera il risultato 3.1406. 


ottenere un risultato 
in virgola mobile. 


\ espressionel Esegue una divisione 355 \ 113 che genera il 
\ espressione2 di due valorisenza risultato 3. 
cifre decimali. 
ii espressionel Eleva a potenza un 5 “ 3 che genera il risul- 
* espressione? numero in base al tato 125. 
valore dell'esponen- 
te. 
n rr T—P6r——— mE_——————T6T—TP—Te+er‘m01° Wi 
Mod espressionet Divide due valori 12 Mod 5 genera il 


Mod espressione2 interi e restituisce il risultato 2. 
resto. 


68 
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Per usare una classe è necessario, innanzitutto, creare una nuova 
istanza di tale classe. 


Vedi anche: in questa parte, la sezione che descrive come dichia- 
rare le classi. 


La sintassi generale per creare un nuova istanza di classe è la se- 
guente. 


Dim istanzaClasse As New nomeClasse 


Questa sintassi dimostra che la creazione di una nuova istanza di 
classe coinvolge le parole chiave New, Dim e As (di solito utilizzate 
per dichiarare le variabili). Dopo aver creato un’istanza di classe è 
necessario adottare per la stessa i metodi Public della classe di 
appartenenza. La sintassi generale per l’uso del metodo Public è 
la seguente. 


istanzaClasse.nomeMetodo elencoValoriArgomento 


Quello seguente è un esempio pratico dell’uso della classe CMyInt. 
Innanzitutto è necessario dichiarare la classe. 


Private mintVal As Integer 

Public Sub Store(X As Integer) 
mintVal = X 

End Sub 

Public Function Recall( ) As Integer 
Recall = mintVal 

End Function 


La classe dichiara l'elemento dati mintval di tipo Private Inte- 
ger e le routine Store( ) e Recall( ).La procedura Store( ) 
memorizza nell'elemento dati mintVal un nuovo valore (fornito 
dall’argomento x).La funzione Recal1( ) restituisce il valore del- 
l'elemento dati mintVal. 


Per dichiarare un’evenienza della classe CMyInt si dovrà ora scri- 
vere 


Dim objInt As New CMyInt 
Quindi, per accedere all’istanza obj Int si potranno scrivere enun- 
ciati simili ai seguenti. 


objInt.Store(12) 
Debug.Print objInt.Recall 
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Il primo enunciato richiama il metodo Store per memorizzare il 
numero 12 nell’istanza di classe objInt;il secondo enunciato ri- 
chiama il valore nell’istanza di classe objIint servendosi del meto- 
do Recall( ). 


La classe potrà essere richiamata come argomento. 
La sintassi generale per questa operazione è la seguente. 


nomeArgomento As nomeClasse 


Ecco un esempio pratico. 


Sub CopyInt(SourceInt As CMyInt, TargetInt As CMyInt) 
Targetint.Store(SourceInt.Recall) 
End Sub 


La procedura CopyInt( ) copia il valore da un'istanza di classe 
CMyInt in un’altra istanza. La procedura ha gli argomenti Source - 
Int e TargetInt di tipo CMyInt il cui scopo è quello di specifica- 
re l'istanza di classe sorgente e quella di destinazione. 


Uso delle costanti 


Visual Basic consente di dichiarare nomi e valori fissi da associare 
a tali nomi. programmatori chiamano questi nomi costanti. Le co- 
stanti possono essere dichiarate e utilizzate al posto di valori lette- 
rali, facilitando, così, la lettura e le operazioni di aggiornamento 
del codice. Per esempio, invece di avere un codice del tipo If day 
= 7 Then,a tale codice si potrà assegnare al valore 7 una costante 
(per esempio Domenica).A questo punto il frammento di codice 
precedente potrà essere scritto come If day = Domenica Then. 


La sintassi generale per dichiarare una costante è la seguente. 


[Public | Private] Const nomeCostante [As tipo] = 
espressione 


La parola chiave facoltativa Public viene inserita a livello di mo- 
dulo per dichiarare che le costanti saranno disponibili per tutte le 
procedure di tutti i moduli. Non si ha la possibilità di dichiarare 
costanti di tipo Public all’interno delle procedure. 


La parola chiave facoltativa Private viene inserita a livello del mo- 
dulo per dichiarare le costanti che saranno disponibili solo all’in- 
terno del modulo nel quale è stata fatta la dichiarazione. Non si 
possono dichiarare costanti Private all’interno delle procedure. 


L'argomento nomeCostante corrisponde al nome assegnato alla 
costante e deve seguire le convenzioni standard per l’assegnazio- 
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ne dei nomi alle variabili.L'argomento facoltativo tipo specifica il 
tipo di dati della costante (potrà essere Byte, Boolean, Integer, Long, 
Currency,Single,Double,Date,String,Variant o un qualsiasi tipo 
personalizzato). Se si omette l'argomento tipo, Visual Basic sele- 
ziona il tipo di dati che meglio si adatta al tipo dell'argomento 
espressione.Visual Basic richiede di utilizzare clausole As tipo 
per ogni costante che viene dichiarata. L'argomento espressione 
può essere di tipo letterale, un’altra costante o una qualsiasi combi- 
nazione che preveda operatori aritmetici o logici (con l'eccezione 
dell’operatore Is) 


Nota. Nelle espressioni assegnate alle costanti non sì possono usa- 
re variabili, funzioni personalizzate o funzioni Visual Basic predefi- 
nite (come, per esempio, Chr( )). 


Viene ora proposto un esempio di costanti. 


Const GIORNI SETTIMANA = 7 

Const MESI _ANNO As Byte = 12 

Const COSTANTE_E As Double = 2.7183 
Const Mois As String = "Mario Rossi" 


Il primo esempio dichiara la costante GIORNI_SETTIMANA e associa 
alla stessa il valore 7. Poiché la dichiarazione non definisce alcun 
tipo di dati, Visual Basic assegnerà automaticamente alla costante 
il tipo di dati che ritiene più appropriato (per esempio Byte oppu- 
re Integer). 


Il secondo esempio dichiara la costante MESI_ANNO alla quale vie- 
ne associato il valore 12. In questo caso la dichiarazione imposta 
anche il tipo di dati Byte. 


Il terzo esempio dichiara la costante COSTANTE_E e gli assegna il 
valore 2.7183.Viene inoltre definito il tipo di dati Double. 


L'ultimo esempio, infine, dichiara la costante Mois e le associa la 
stringa di testo “Mario Rossi”. La dichiarazione definisce inoltre il 
tipo di dati String. 


L'uso delle costanti è relativamente semplice poiché richiede solo 
l'indicazione del nome della costante stessa. Si osservi l'esempio 
seguente. 


Const GIORNI_SETTIMANA As Integer = 7 

Dim NumeroSettimane As Integer 

NumeroSettimane = 3 

Debug.Print "Numero di giorni "; NumeroGiorni * 
GIORNI_SETTIMANA 


Questo esempio dichiara la costante GIORNI_SETTIMANA e le asso- 
cia il valore 7 e il tipo di dati Integer. Viene inoltre dichiarata la 
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variabile NumeroSettimane, di tipo Integer e quindi le sì assegna 
il valore 3.L'ultimo enunciato visualizza il numero dei giorni risul- 
tanti dalla moltiplicazione del valore nella variabile NumeroSetti - 
mane con quello della costante GIORNI_SETTIMANA. Il risultato di 
quest'ultimo enunciato visualizzerà, nella finestra Immediata, il ri- 


sultato 21. 


Uso degli operatori logici 


Visual Basic viene fornito con una serie di operatori logici descritti 
nella tabella seguente. Questi operatori permettono di esaminare i 
valori logici di una o più espressioni di tipo booleano. 


Operatore Sintassi 


Commento 


Esempio 


Esegue una congiunzione logica di 
due espressioni booleane (control- 
la se entrambe le espressioni sono 


(1 < 2) And (3 > 0) 
restituisce il risultato 
True poiché entrambe le 
espressioni sono vere. 


Esegue una separazione logica di 
due espressioni (controlla se alme- 
no una delle due è vera). 


(1 < 0) Or (3 > 0) 
restituisce il risultato 
True poiché la seconda 
espressione risulta vera. 


Esegue un'esclusione logica di due 
espressioni (controlla per verifica- 
re se solo una delle espressioni ri- 


Esegue la negazione logica di una 


Esegue un'implicazione logica su 
due espressioni. Si comporta in 
modo diverso da And poiché False 
Imp True risulta vera (mentre Fal- 
se And True risulta falsa) e False 
Imp False risulta vera (mentre Fal- 
se And False risulta falsa). 


(1 < 2) Xor (3 > 0) è 
False perché entrambe 
le espressioni sono vere. 


Not (1<0)è True poiché 
(1<0) è False. 


(4 > 2) Imp (3 > 1) 
restituisce True poiché 
entrambe le espressioni 
sono vere. 


Esegue un'equivalenza logica di 


And booleano] And 
bcoleabo2 
vere). 
Or booleano1 Or 
booleano2 
Xor booleanoi Xor 
booleano2 
sulta vera). 
Not Not booleano 
espressione 
Imp booleano1 Imp 
booleano2 
Eqv booleano1 Egv 
booleano2 


due espressioni. E diverso dall'ope- 
ratore And in quanto False And 
False risulta falsa mentre False 
Eqv false risulta vera. 


(4 > 2) Eqv (3 > 1) 
restituisce True poiché 
entrambe le espressioni 
sono vere. 
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Uso degli operatori relazionali 


Gli operatori relazionali di Visual Basic, descritti nella tabella se- 
guente, consentono di confrontare i valori di due espressioni. 


Operatore Sintassi Commento Esempio 
> espressionel > Restituisce True quando 2 > 0 restituisce True 2 
espressione2 espressione1 è maggiore di > 2 restituisce False 
espressione2. In caso contra- 2 > 10 restituisce False 
rio, False. 
>= espressione1 >= Restituisce True quando 2 >= @ restituisce True 
espressione2 espressionel è maggiore o 2 > = 2 restituisce True 
uguale a espressione2.Incaso 2 > = 10 restituisce 
contrario, restituisce False. False 
< espressionel < Restituisce True quando 2 < 0 restituisce False 
espressione2 espressionel è minore di 2 < 2 restituisce False 
espressione2. In caso contra- 2 < 10 restituisce True 
rio restituisce False. 
<= espressioneit <= Restituisce True se espressio- 2 <= @ restituisce False 
espressione2 nel è minore o uguale a 2 <= 2 restituisce True 
espressione2. In caso contra- 2 <= 10 restituisce True 
rio, restituisce False. 
= espressionel = True quando espressione] è 2 = @ restituisce False 
espressione2 uguale a espressione2. Incaso 2 = 2 restituisce True 
contrario restituisce False. 
<> espressionet <> True quando espressione] non 2 < > @ restituisce True 
espressione2 è uguale a espressione2. Incaso 2 < > 2 restituisce False 
contrario restituisce False. 
Is oggetto1 Is Confronta due variabili di rife- Set OggY = OggM 


oggetto2 


rimento a oggetti. Restituisce 
True se la variabile fa riferi- 
mento allo stesso oggetto. In 
caso contrario restituisce Fal - 
se. 


Set OggTo = OggM 
IsSame = 

OggY Is OggTo 
Restituisce True poiché 
entrambe le variabili 
fanno riferimento allo 
stesso oggetto. 


Like 


stringa Like 
schema 


Restituisce True se stringa 
soddisfa le specifiche definite 
da schema. 


"WORD -EXE" 


Like 


"W*D.EXE" 


restituisce True. 
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2 Per maggiori informazioni sull’utilizzo degli operatori, si consulti il 
sr) libro Visual Basic 6 For Dummies di Wallace Wang (Apogeo, 1998). 
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Per usare un tipo di dati personalizzato è necessario dichiarare le 
variabili di tale tipo tramite un enunciato Dim. 


Vedi anche: in questa parte, la sezione che descrive come creare 
tipi di dati personalizzati. 


La sintassi generale per la dichiarazione di un tipo di dati persona- | 
lizzato è la seguente. Es 


Dim nomeVariabile As nomeTipo | 


Questa sintassi mostra che la procedura per la dichiarazione di un 
tipo di dati personalizzato è molto simile a quella utilizzata per di- 
chiarare le variabili associate a tipi di dati predefiniti. Dopo aver 
dichiarato un tipo di dati personalizzato, si potrà accedere agli ele- 
menti dati servendosi dell’operatore “punto” (.). 


La sintassi generale per accedere agli elementi dati di un tipo di 
dati personalizzato è la seguente. 


TipoVarPersonale.elementodati 


lio . . . . . 
a Quello che segue è un esempio di come sia possibile usare il tipo 
DI . . . “ . . . . . . . 
gi di dati Punto. Innanzitutto è necessario dichiarare il tipo di dati. 


Type Punto 
XLoc As Integer I 
YLoc As Integer 

End Type 


Il tipo Punto dichiara gli elementi dati XLoc e YLoc di tipo Inte - id 
ger. ai 


Per dichiarare la variabile di tipo Punto si scriverà quanto segue. 


Dim miaPosizione As Punto 


A questo punto, per accedere agli elementi dati della variabile mia- 
Posizione si potranno scrivere enunciati simili ai seguenti. 


miaPosizione.Xloc = 12 
miaPosizione.YLoc = 22 
Debug.Print "("; miaPosizione.XLoc; ", "; 
miaPosizione.YLoc; ")" 


LL 
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I primi due enunciati memorizzano i valori nell'elemento dati XLoc 
e YLoc della variabile miaPosizione. 


L'ultimo enunciato visualizza, invece, i valori degli elementi dati 
accedendovi tramite l’enunciato Print. 


Si ha anche la possibilità di utilizzare come argomento un tipo di 
dati personalizzato. La sintassi generale per questa operazione è la 
seguente. 


nomeArgomento As nomeTipo 


Ed ecco un esempio pratico. 


Sub CopiaPunto(PuntoOrigine As Punto, PuntoDest As Punto) 
PuntoDest.XLoc = PuntoOrigine.XLoc 
PuntoDest.YLoc = PuntoOrigine.YLoc 

End Sub 


La procedura CopiaPunto( ) copia il valore contenuto nell’argo- 
mento di tipo Punto in un altro argomento. La procedura prevede 
gli argomenti PuntoOrigine e PuntoDest di tipo Punto che speci- 
ficano le coordinate di origine e quelle di destinazione. 
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Per usare un tipo di dati enumerato personale è necessario prima 
dichiarare la variabile di tale tipo servendosi dell’enunciato Dim. 


Vedi anche: in questa parte, la sezione che descrive come creare 
tipi di dati enumerati personalizzati. 


La sintassi generale per dichiarare una variabile con tipo di dati 
enumerato personale è la seguente. 


Dim nomevariabile As nomeTipo 


Questa sintassi mostra che la procedura perla dichiarazione di una 
variabile di tipo enumerato personale è molto simile a quella utiliz- 
zata per le variabili che prevedono tipi di dati predefiniti.Dopo aver 
dichiarato un tipo di dati enumerato personale, si potrà accedere 
ai suoi valori servendosi dell'operatore “punto” (.).La sintassi gene- 
rale per accedere agli elementi dati di un tipo di dati enumerato 
personale è la seguente. 


VarTipoPersonale [= valoreEnumerazione] 


Viene ora fornito un esempio di come sia possibile usare il tipo di 
dati enumerato personale Weekend. Innanzitutto si dichiara il tipo. 
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Enum Weekend 
Sabato = 7 
Domenica 

End Enum 


Il tipo Weekend dichiara i valori Sabato e Domenica. 
Per dichiarare una variabile di tipo Weekend si potrà ora scrivere. 


Dim mioGiorno As Weekend 


A questo punto, per accedere ai valori della variabile mioGiorno si 
potranno scrivere enunciati simili ai seguenti. 


mioGiorno = Domenica 
If mioGiorno = Domenica Then 
Debug.Print "Domenica" 
Else 
Debug.Print "Sabato" 
End If 


Il primo enunciato memorizza il valore enumerato Domenica al- 
l'interno della variabile mioGiorno.L'enunciato If confronta il va- 
lore contenuto nella variabile mioGiorno con Domenica e visualiz- 
za la stringa “Domenica” nel caso in cui i due valori siano coinci- 
denti. In caso contrario, l’enunciato If permette di visualizzare la 
stringa “Sabato”. 


Un tipo di dati enumerato personale può essere usato anche come 
argomento. 


La sintassi generale per questo tipo di argomento è la seguente. 


nomeArgomento As nomeTipo 


Ecco un esempio pratico. 


Sub CopiaGiorno(GiornoOrigine As Weekend, 
GiornoDest As Weekend) 

GiornoDest = GiornoOrigine 
End Sub 


La procedura CopiaGiorno( ) copia il valore di tipo Weekend da 
un argomento di tipo Weekend all’altro. 
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Uso delle variabili 


Le variabili sono destinate a memorizzare dati o riferimenti a 0g- 
getti. Anche se Visual Basic è in grado di creare variabili tempora- 
nee, è buona norma di programmazione dichiararle esplicitamen- 
te con un enunciato Dim. L'enunciato Option Explicit fa sì che le 
variabili debbano essere dichiarate e tale enunciato dovrà essere 
inserito nel modulo generale di dichiarazione del progetto e do- 
vrebbe, inoltre, apparire come uno dei primi enunciati di un pro- 
gramma. L'enunciato Option Explicit indica al compilatore di 
emettere un messaggio di errore quando rileva la presenza di un 
testo che non è parte del linguaggio Visual Basic e quando tale 
testo non è stato precedentemente dichiarato. Option Explicit 
aiuta a evitare di commettere errori di digitazione consentendo 
quindi di correggere il codice. 


La sintassi generale per dichiarare le variabili è la seguente. 


Dim [WithEvents] nomeVar[([subscripts])] [As [New] tipo] 
[, [WithEvents] nomeVar[([subscripts])] [As [New] tipo]] 


La parola chiave facoltativa WithEvents specifica che nomeVar è 
una variabile oggetto utilizzato per rispondere a eventi gestiti da 
un oggetto ActiveX; la parola chiave WithEvents è valida solo nei 
moduli di classe. Sebbene con WithEvents si possano dichiarare 
tutte le variabili di cui si ha necessità, non si ha la possibilità di 
creare matrici. Inoltre non si può utilizzare la parola chiave New in 
congiunzione con la parola chiave WithEvents. 


L'argomento nomeVar corrisponde al nome della variabile e deve 
assoggettarsi alle convenzioni standard per l’assegnamento dei 
nomi alle variabili. L'argomento facoltativo subscripts specifica 
le dimensioni di una variabile matrice e Visual Basic,in una variabi- 
le matrice multidimensionale, consente di dichiarare fino a 60. di- 
mensioni. L'argomento subscripts si serve della seguente sintassi 
generale. 


[min To] max [, [min To] max] ... 


Quando si omette la parte min, la dichiarazione utilizza per tale 
parte il valore di default.L'enunciato Option Base controlla il valo- 
re minimo di default della matrice (che corrisponde, di solito, a 0 0 
a 1).La parola chiave New abilita la creazione implicita di un ogget- 
to; l'argomento facoltativo tipo specifica il tipo di dati della variabi- 
le. Il valore di tipo può essere Byte, Boolean, Integer, Long, Cur - 
rency,Single,Double,String (per una stringa di lunghezza varia- 
bile), String * lunghezza (per una stringa a lunghezza fissa), 
Object, Variant oppure un tipo di dati personalizzato o un tipo 
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oggetto.È necessario utilizzare la parola chiave As per ogni variabi- 
le che verrà dichiarata. 


Qui di seguito vengono forniti alcuni esempi per la dichiarazione 
delle variabili. 


Dim NumGiorni 
NumGiorni = 7 
Debug.Print NumGiorni 


Dim NumMesi As Byte 
NumMesi = 12 
Debug.Print NumMesi 


Dim VirgolaMobile As Double 
VirgolaMobile = 2.7183 
Debug.Print VirgolaMobile 


Dim mioNome As String 
mioNome = "Mario Rossi" 
Debug.Print mioNome 


Il primo esempio dichiara la variabile NumGiorni e poiché la di- 
chiarazione non menziona alcun tipo di dati, Visual Basic ne sele- 
zionerà uno di tipo intero (come, per esempio, Byte oppure Inte - 
ger).Il codice, quindi, assegna alla variabile il valore 7 e lo visualiz- 
za nella finestra Immediata. 


Il secondo esempio dichiara la variabile NumMesi.La dichiarazione 
definisce anche il tipo di dati Byte e alla variabile viene assegnato 
il valore 12 che viene successivamente visualizzato nella finestra 
Immediata. 


Il terzo esempio dichiara la variabile VirgolaMobile di tipo Dou - 
ble.Il codice assegna alla variabile il valore “2.7183” e lo visualizza 
nella finestra Immediata. 


Il quarto esempio definisce la variabile mioNome di tipo String, le 
assegna il valore “Mario Rossi” che verrà quindi visualizzato nella 
finestra Immediata. 


L'uso delle variabili è relativamente semplice poiché si richiede solo 
di indicare il nome di una costante, come nell'esempio seguente. 


Const GIORNI SETTIMANA As Integer = 7 

Dim NumeroSettimane As Integer 

NumeroSettimane = 3 

Debug.Print "Numero di giorni "; NumeroGiorni * 
GIORNI_SETTIMANA 
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Questo esempio dichiara la costante GIORNI_SETTIMANA e le asso- 
cia il valore 7 e il tipo di dati Integer. Viene inoltre dichiarata la 
variabile NumeroSettimane, di tipo Integer e quindi le si assegna 
il valore 3. L'ultimo enunciato visualizza il numero dei giorni risul- 
tanti dalla moltiplicazione del valore nella variabile NumeroSetti - 
mane con quello della costante GIORNI_SETTIMANA. Il risultato di 
quest’ultimo enunciato visualizzerà, nella finestra IMmediata, il ri- 
sultato 21. 


Le finestre di dialogo 


Le finestre di dialogo hanno lo scopo di fungere da inter- 
mediario fra l'utente e l'applicazione. Indubbiamente que- 
sto tipo di conversazione tra utente e computer non è cer 
tamente degno di un premio Pulitzer ma lo scopo finale 
viene sempre e comunque raggiunto poiché tramite tali ele- 
menti si ha la possibilità di stampare, salvare e aprire docu- 
menti oppure avviare operazioni accessorie quali, per esem- 
pio, la definizione di tipo di carattere, delle dimensione 0 
del colore del testo. 


Argomenti trattati 
v Visualizzazione di messaggi e richieste 
di immissione 
v Opzioni di stampa personalizzabili dall’utente 
v File di guida relativi all’applicazione creata 


v Finestre di dialogo per la modifica del colore 
e del tipo di carattere 


v Finestre di dialogo per salvare e aprire i file 
dall’applicazione 
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Finestra di dialogo “Colore” 


La finestra di dialogo per la selezione di un colore è una di quelle 
standard in Windows 9x e consente all’utente di selezionare un co- 
lore prelevandolo da una palette (o di crearne uno personalizza- 
to) da applicare al testo, agli sfondi e a molti altri elementi. Per ac- 
cedere alla finestra di dialogo per la gestione del colore si deve 
utilizzare il metodo ShowColor( ) del controllo CommonDialog.Per 
utilizzare la finestra di dialogo del colore si impostino le proprietà 
del controllo CommonDialog in modo che siano in grado di gestire 
tale finestra di dialogo. 


Ricordare. La finestra di dialogo per la gestione del colore non è 
disponibile nella versione Standard di Visual Basic 6. 


Nella tabella seguente vengono elencate le proprietà più impor 
tanti della finestra di dialogo per la gestione del colore. 


Proprietà: sintassi Scopo Esempio Commenti 

Color: Restituisce o imposta il  digColor.Color Assegna il colore ros- 
oggetto.Color colore selezionato. = vbRed so alla finestra di dia- 
[= numero] logo dig Color. 
Flags: Restituisce o imposta le  shpBody.Fill Imposta la proprietà 
oggetto. Flags opzioni per una finestra Color = Fill Color del con- 
[= valore] di dialogo per la gestio- vbRed trollo sul rosso. 


ne del colore (vedi: ta- 
bella successiva). 


Nella tabella seguente vengono invece elencati i valori accettabili 
della proprietà Flags della finestra di dialogo del colore. 


Costante Valore Descrizione 


cdCCclFullopen &H2 Visualizza l'intera finestra di dialogo, 
compresa la sezione relativa alla defi- 
nizione di colori personalizzati. 


cd1lCCHelpButton &H8 Visualizza, all'interno della finestra di 
dialogo, il pulsante di comando ?. 

cdlCcPrevent &H4 Disabilita il pulsante di comando per 

FullOpen l'accesso all'area della finestra per la 


definizione dei colori personalizzati. 


cd1CCRGBInit &H1 Imposta il valore iniziale dei colori della 
finestra di dialogo. 


«SEM, 


Finestra di dialogo “Colore” 8] 


La figura seguente è un esempio di programma che visualizza la 
finestra di dialogo per la gestione dei colori. Questo programma 
visualizza un modulo nel quale è contenuta un’etichetta e due 
pulsanti di comando: quello a sinistra richiama la finestra di dialo- 
go colore per impostare il colore dello sfondo mentre quello di 
destra richiama la stessa finestra di dialogo per definire il colore 
del testo dell’etichetta. 


Ciao Mondo! 


Dolore [2]x| 
Lolori di base: 


Colore testo | EF SEE 
 ROESNENO 


I NOR NS NR 
ei a 


Dolori personalizzati 
punt punt pent nf sl d | 
ESS SESE 
Definisci colori personalizzati >> | 
Trarvale] 


Nella tabella seguente vengono elencate le proprietà del modulo e 
degli altri componenti utilizzati. 


Oggetto Proprietà Impostazione 

Form Name Form1 (default) 
Caption Demo Scelta Colori 

Common Dialog Name digColor 

Pulsante comando Name cmdBackColor 
Caption Colore &Sfondo 

Pulsante comando Name cmdForeColor 
Caption Colore &Testo 

Etichetta Name IblColor 


Si propone ora il codice sorgente che genera la figura precedente. 


Private Sub cmdBackColor_Click( ) 
' imposta la proprietà Flags 
dlgColor.Flags = cdlCCRGBInit 
' imposta il colore della finestra di dialogo 
dlgColor.Color = lblColor.BackColor 
' visualizza la finestra di dialogo del colore 
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dlgColor.ShowColor 
lblColor.BackColor = dlgColor.Color 
End Sub 
Private Sub cmdForeColor _Click( ) 
' imposta la proprietà Flags 
dlgColor.Flags = cdlCCRGBInit 
' imposta il colore della finestra di dialogo 
dlgColor.Color = lblColor.ForeColor 
' visualizza la finestra di dialogo del colore 
dlgColor.ShowColor 
lblColor.ForeColor = dlgColor.Color 
End Sub 
Private Sub Form Load( ) 
lblColor.Caption = "Ciao Mondo!" 
lblColor.Font.Size = 24 
End Sub 


Questo codice contiene la procedura Form_Load( ) che inizializ- 
za il form assegnando un testo alla proprietà Caption dell’etichet- 
ta e impostandone la dimensione del carattere a 24 punti. 


La procedura cmdBackColor_Click( ) risponde a un clic dell’utente 
sul pulsante di comando Colore Sfondo e gestisce l’ evento ese- 
guendo le seguenti operazioni. 


+ Imposta la proprietà Flags della finestra di dialogo del co- 
lore assegnandole come valore la costante cdl1CCRGBInit. 


+ Imposta la proprietà Color della finestra di dialogo del co- 
lore assegnandole la proprietà BackColor del controllo Eti- 
chetta (questa operazione permette alla finestra di dialogo 
del colore di impostare il colore di sfondo dell’etichetta). 


+ Visualizza la finestra di dialogo del colore tramite il metodo 
ShowColor( ). 


+ Assegna il valore della proprietà Color (della finestra di 
dialogo del colore) alla proprietà BackColor del controllo 
Etichetta. 


La procedura cmdForeColor_Click( ) risponde a un clic dell’utente 
sul pulsante di comando Colore Testo e gestisce l'evento, ese- 
guendo le operazioni seguenti. 


+ Imposta la proprietà Flags della finestra di dialogo del co- 
lore assegnandole come valore la costante cdl1CcRGBInit. 


*+ Imposta la proprietà Color della finestra di dialogo del co- 
lore assegnandole la proprietà ForeColor del controllo Eti- 
chetta (questa operazione permette alla finestra di dialogo 
del colore di impostare il colore del testo dell’etichetta). 
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+ Visualizza la finestra di dialogo del colore tramite il metodo 
ShowColor( ). ° 


+ Assegna il valore della proprietà Color (della finestra di 
dialogo del colore) alla proprietà ForeColor del controllo 
Etichetta. 
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La finestra di dialogo “Carattere” (Font) è anch'essa una delle 
finestre standard di Windows 9x e consente all’utente di selezio- 
nare un tipo di carattere. Per visualizzare questa finestra di dia- 
logo si deve utilizzare il metodo ShowFont( ) del controllo Com- 
monDialog. Per utilizzare la finestra di dialogo dei caratteri è 
necessario impostare correttamente le proprietà del controllo 
CommonDialog. 


Ricordare. La finestra di dialogo Carattere non è disponibile nel- 
la versione Standard di Visual Basic 6. 


Nella tabella seguente si riportano le proprietà più importanti della 
finestra di dialogo per la gestione dei caratteri. 


Proprietà Descrizione 

Color Determina il colore selezionato. Per usare questa proprietà 
è necessario impostare la proprietà Flags su cd1CFEf- 
fects. 

FontBold Determina se è stato o meno selezionato lo stile grassetto. 

FontItalic Determina la selezione o meno dello stile corsivo. 


FontStrikeThrough Determina se è stato selezionato o meno lo stile barrate.Per 
usare questa proprietà è necessario prima impostare la 
proprietà Flags su cdlCFEffects. 


FontUnderline Determina se è stato o meno selezionato lo stile sottoline- 
atura. Per usare questa proprietà è necessario prima im- 
postare la proprietà Flags sucdl CFEffects. 


FontName Determina il nome del carattere selezionato. 

FontSize Determina la dimensione del carattere selezionato. 

Min Determina la dimensione minima del carattere. 

Max Determina la dimensione massima del carattere. 

Flags Determina gli elementi per intervenire con più precisione 


nella finestra di dialogo. 
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La tabella seguente riporta, invece, i valori accettabili per la pro- 
prietà Flags della finestra di dialogo dei caratteri. 


Costante 
cdlCFANSIOn1y 


cd1CFApply 


cdlCFBoth 


CdAlCFEffects 


cdlCFFixedPitchOnly 


Valore 


Descrizione 


&H400 


Specifica che la finestra di dialogo 
accetta solo la selezione di un ca- 
rattere che utilizza il set di caratteri 
Windows. Con questa impostazione 
all'utente non sarà consentito di se- 
lezionare un tipo di carattere che 
contenga solo simboli. 


&H200 


Inserisce nella finestra di dialogo il 
pulsante di comando Applica. 


&H3 


&H100 


&H4000 


Fa sì che nella finestra di dialogo 
vengano visualizzati sia i caratteri 
della stampante e quelli video. 


Fa sì che la finestra di dialogo visua- 
lizzi anche l'attivazione degli effetti 
barrato, sottolineato e di colore. 


Fa sì che la finestra di dialogo visua- 
lizzi solo tipi di carattere a spaziatu- 
ra fissa. 


cdlCFForceFontExist 


cdlCFHelpButton 


cdlCFLimitSize 


&H10000 


Fa sìche venga visualizzato un mes- 
saggio di errore quando l'utente cer- 
ca diselezionare un carattere o uno 
stile che non esiste. 


&H4 


Inserisce nella finestra di dialogo il 
pulsante ?. 


&H2000 


Specifica che la finestra di dialogo 
consente di utilizzare solo dimensio- 
ni di carattere contenute nell'inter- 
vallo specificato dalle proprietà Min 
e Max. 


cd1lCFNoFaceSel 


&H80000 


Indica che l'utente non ha selezio- 
nato un nome di carattere. 


cdlCFNoSimulations 


cdlCFNoSizeSel 


&H1000 


Indica che la finestra di dialogo non 
consente l'uso delle simulazioni di 
tipi di carattere GDI (Graphic Devi- 
ce Interface). 


&H200000 


Indica che l'utente non ha selezio- 
nato una dimensione di carattere. 


I A 
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Costante Valore Descrizione 

cdlCFNioStyleSel &H100000 Indica che l'utente non ha selezio- 
nato uno stile. 

cd1CFNoVectorFonts &H800 Indica che la finestra di dialogo non 
ammette la selezione ditipi di carat- 
tere vettoriali. 

cdlCFPrinterFonts &H2 Fa sì che la finestra di dialogo elen- 
chi solo i tipi di carattere della stam- 
pante. 

cdlCFScalableOnly &H20000 Fa sì che la finestra di dialogo con- 


senta di selezionare solo tipi di ca- 
ratteri scalabili. 


cdlCFScreenFonts &Hi Fa sì che la finestra di dialogo elen- 
chi soltanto i tipi di carattere video 
riconosciuti dal sistema. 


cd1lCFTTONIy &H40000 Fa sì che la finestra di dialogo con- 
senta solo la selezione di tipi di ca- 
rattere TrueType. 

cdlCFWYSIWYG &H8000 Indica che la finestra di dialogo con- 


sente solo la selezione di tipi di ca- 
rattere che sono disponibili sia per 
la stampante sia per il video. L'atti- 
vazione di questa impostazione pre- 
vede anche l'attivazione delle impo- 
stazioni cdICFBoth e cdlCFScalable- 
Only. 


Per maggiori informazioni sulla finestra di dialogo Carattere, si con- 
sulti il libro Visual Basic 6 For Dummies di Wallace Wang (Apogeo, 
1998). 


La figura seguente è il risultato di un programma che utilizza la 
finestra di dialogo Carattere.Viene qui visualizzato un form conte- 
nente un'etichetta e un pulsante di comando per accedere alla fi- 
nestra di dialogo Carattere dalla quale selezionare il tipo di carat- 
tere da applicare all’etichetta. 
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Finestra di dialogo “Carattere” 


Stile: Dimensione: 


allo > Annulla | 
12 


I Scrittura: 


da; [Occidentale ha 


Nella tabella seguente vengono elencate le impostazioni delle pro- 


prietà degli oggetti del form. 


Oggetto Proprietà Impostazione 

Form Name Form1 (default) 
Caption Demo Scelta Font 

Common Dialog Name difFont 

Pulsante comando Name cmdSelectFont 
Caption Seleziona &Font 

Etichetta Name IblFont 


Ecco il codice sorgente che gestisce l’applicazione. 


Private Sub cmdSelectFont _Click( ) 
' imposta la possibilità di selezionare un tipo 
' e uno stile di carattere 
dlgFont.Flags = cdlCFScreenFonts Or cdlCFEffects 
' imposta il colore del carattere 
digFont.Color = lblFont.Font 
' imposta il nome del carattere 
dlgFont.FontName = lblFont.Font 
' imposta la dimensione del carattere 
dlgFont.FontSize = lblFont.Font.Size 
' imposta lo stile del carattere 
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dlgFont.FontBold = lblFont.Font.Bold 
dlgFont.FontItalic = lblFont.Font.Italic 
dlgFont.FontUnderline = lblFont.Font.Underline 
digFont.FontStrikethru = lblFont.Font.Strikethrough 
' visualizza la finestra di dialogo del carattere 
dlgFont.ShowFont 
' aggiorna il tipo di carattere 
lblFont.FontName = dlgFont.FontName 
lblFont.FontSize = dlgFont.FontSize 
lblFont.ForeColor = dlgFont.Color 
lblFont.Font.Bold = dlgFont.FontBold 
lblFont.Font.Italic = dlgFont.FontItalic 
lblFint.Font.Underline = dlgFont.FontUnderline 
lblFont.Font.Strikethrough = dlgFint.FontStrikethru 

End Sub 

Private Sub Form_Load( ) 
lblFont.Caption = "Ciao Mondo!" 

End Sub 


Questo codice contiene la procedura Form_Load( ) che inizializ- 
za il modulo assegnando un testo alla proprietà Caption del con- 
trollo “Etichetta”. 


La procedura cmdSelectFont_Click( ) gestisce l'evento clic del- 
l'utente sul pulsante di comando eseguendo le operazioni seguenti. 


+ Imposta la proprietà Flags della finestra di dialogo Carat- 
tere al valore delle costanti cdlCFScreenFonts e cd1CFEf- 
fects. 


+ Imposta la proprietà Color della finestra di dialogo Carat- 
tere alla proprietà ForeColor del controllo “Etichetta”. Que- 
sta operazione consente alla finestra di dialogo Carattere di 
avere lo stesso colore dell’etichetta quando il programma 
visualizzerà la finestra di dialogo. 


*+ Impostala proprietà FontName della finestra di dialogo Ca- 
rattere alla proprietà Font del controllo Etichetta.Questa ope- 
razione consente alla finestra di dialogo Carattere di ripor 
tare lo stesso carattere dell'etichetta quando il programma 
aprirà la finestra di dialogo. 


+ Impostala proprietà FontSize della finestra di dialogo Ca- 
rattere a quella della proprietà Font .Size del controllo Eti- 
chetta in modo che, quando il programma aprirà la finestra 
di dialogo, questa riporti la stessa dimensione di carattere 
dell'etichetta. 


*+ Imposta le proprietà di stile (grassetto, corsivo, sottolineatu- 
ra e barrato) della finestra di dialogo Carattere in base alle 
proprietà corrispondenti del controllo Etichetta. 
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Ciò fa sì che la finestra di dialogo Carattere, quando viene 
aperta dal programma, riporti lo stesso stile di carattere del 
controllo Etichetta. 


+ Visualizza la finestra di dialogo Carattere tramite il metodo 
ShowFont( ). 


+ Assegna i valori della finestra di dialogo relativi al tipo, di- 
mensione, stile e colore del carattere alle corrispondenti pro- 
prietà del controllo Etichetta. 


Finestra di dialogo “Guida” 


La finestra di dialogo Guida fa parte di quelle standard di Windows 
9x e consente all’utente di avviare il motore del sistema di guida di 
Windows e visualizzare il file impostato dalla proprietà HlpFile. 
Per visualizzare la finestra di dialogo Guida si deve utilizzare il me- 
todo ShowHelp( ) del controllo Common Dialog definendone le 
appropriate impostazioni. 


Ricordare. La finestra di dialogo Guida non è disponibile nella 
versione Standard di Visual Basic 6. 


Proprietà: sintassi 


HelpCommand: 
oggetto .HelpCommand 
[= valore] 


Scopo 


Esempio 


La tabella seguente riporta le proprietà più importanti della fine- 
stra di dialogo Guida. 


Commento 


Restituisce o imposta il 
tipo di finestra guida in 
linea richiesta. 


HelpContext: 
oggetto.HelpContext 
[= valore] 


HelpFile: 
oggetto.HelpFile 
[= nomefile] 


Restituisce o imposta unnu- 
mero di contesto associato 
a un oggetto. Utilizzato per 
fornire la guida contestuale 
dell'applicazione. 


dlgHelp.Help 
Command = 
cdlHelpkey 


dlgHelp.Help 
Context = 0 


Imposta il comando per 
l'accesso al sistema di 
guida per la ricerca del- 
l'argomento specificato 
dalla proprietà Help Key. 


Il valore 0 specifica l'as- 
senza di contestualità. 
Un valore positivo speci- 
fica l'argomento conte- 
stuale. 


Definisce il percorso e il 
nome di un file di guida 
Microsoft utilizzato dal- 
l'applicazione per visua- 
lizzare la guida o la docu- 
mentazione in linea. 


dlgHelp.Help 
File = 
"vb6.hlp" 


Specifica che ilfile di gui- 
da corrisponde a 
VB6.HLP. 


HelpKey: 
oggetto .HelpKey 
[= stringa] 


Restituisce o imposta la 
parola chiave che identi- 
fical'argomento della gui- 
da desiderato. 


dlfHelp.Help 
Key = "cicli" 


Specifica che cicli è uno 
degliargomenti periquali 
si richiede aiuto. 
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La tabella seguente riporta, invece, i valori ammessi dalla proprietà 
HelpCommand della finestra di dialogo Guida. 


Costante 


Valore 


Descrizione 


cdiHelpCommand 


&H102& 


Esegue una macro della Guida in li- 
nea. 


cdlHelpCintents 


&H3& 


Visualizza il sommario della guida 
contestuale definito dall'opzione 
Contents della sezione [Option] del 
file .HPJ. 


cdlHelpContext 


cdlHelpContextPopup 


cdlHelpForceFile 


cdlHelpHelpOnHelp 


cdlHelpIndex 


cdlHelpKey 


cdlHelpPartialKey 


&H15& 


&H8& 


Visualizza la guida relativa a un con- 
testo particolare. Quando si utilizza 
questa impostazione è necessario 
anche specificare un contesto tra- 
mite la proprietà HelpContext. 


Visualizza in una finestra a compar- 
sa (popup) un argomento di guida 
particolare, definito nella sezione 
[MAP] del file .HPJ. 


&H9& 


&H14& 


&H3& 


&H101& 


&H105& 


Fa sì che WinHelp visualizzi il file di 
guida corretto. Nel caso in cui que- 
sto risulti già visualizzato, non verrà 
intrapresa alcuna azione. In caso 
contrario WinHelp aprirà il file cor- 
retto. 


Visualizza la guida relativa alla Gui- 
da in linea stessa. 


Visualizza l'indice del file della gui- 
da specificato. Un'applicazione do- 
vrebbe usare questo valore solo per 
un file di guida contenente un indi- 
ce singolo. 


. Visualizza la guida di una parola 


chiave particolare. Quando si utiliz- 
za questa opzione, sarà necessario 
specificare anche una parola chia- 
ve servendosi della proprietà Hel- 


pKey. 


Visualizza l'argomento reperito nel- 
l'elenco delle parole chiave che 
coincide con i caratteri di ricerca 
digitati. 
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Costante Valore Descrizione 
cdlHelpQuit &H2& Notifica all'applicazione di guida che 


il file di guida non è più in uso. 


cdlHelpSetContext &H5& Determina quale argomento conte- 
stuale verrà visualizzato quando 
l'utente premerà il tasto F1 (Guida). 


cdlHelpSetindex &H5& Imposta il contesto specificato dal- 
la proprietà HelpContext come indi- 
ce corrente del file di guida definito 
dalla proprietà HelpFile. Questo in- 
dice rimane attivo fino a quando 
l'utente accede a un diverso file di 
guida. Utilizzare questo valore solo 
per i file di guida contenenti più di 
un indice. 


La figura seguente è il risultato di un programma che visualizza, 
insieme al form, una finestra di dialogo Guida. 


= Demo Guida'in linea (_ [Dx] 


Parole chiave 


Argomenti:troyati . ò 


Fare clic su un argomento, quindi scegliere Visualizza, 


Ist 

Istruzione For Each...Next 

Istruzione For....Next Riferimento a Visual Basic 
Istruzione Vynile...Wend Riferimento a Visual Basic 
Istruzione VVith Riferimento a Visual Basic 
Riepilogo delle parole chiave relative al f... Riferimento a Visual Basic 


sato] 


Nella tabella seguente vengono riportate le impostazioni degli og- 
getti definiti. 
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Oggetto Proprietà Impostazione 
Form Name Form1 (default) 
Caption Demo Guida in linea 
Common Dialog Name digHelp 
HelpFile vb6.hlp 
HelpContext 3 
Pulsante di comando Name cmdHelp 
Caption &Guida 
Etichetta Name IblKey 
Caption Parole chiave 
Casella di testo Name txtKey 


Ecco il codice sorgente dell’applicazione. 


Private Sub cmdHelp _Click( ) 
dlgHelp-HelpCommand = cdlHelpKey 
dlgHelp.HelpKey = txtKey.Text 
dlgHelp.ShowHelp 

End Sub 

Private Sub Form Load( ) 
txtKey.Text = "cicli" 

End Sub 


La procedura Form_load( ) inizializza il modulo assegnandogli la 
stringa letterale ”cicli” per definire l'argomento di guida iniziale da 
visualizzare nella casella di immissione. 


La procedura cmdHelp_Click( ) gestisce l'evento clic sul pulsante 
di comando Guida eseguendo le operazioni seguenti. 


+  Assegnaalla proprietà HelpCommand della finestra di dialo- 
go Guida il valore della costante cdlHelpKey.Il valore asse- 
gnato fa sì che la finestra di dialogo richiami la guida relati- 
va all'argomento specificato dalla proprietà HelpKey. 


+ Copia la proprietà Text della casella di immissione nella 
proprietà HelpKey della finestra di dialogo Guida. 


+ Servendosi del metodo ShowHelp( ),richiama la finestra di 
dialogo Guida. 


Finestra di dialogo “Immissione” (InputBox) 


In Visual Basic esiste la funzione InputBox( ) il cui scopo è quello 
di aprire una finestra di dialogo per immettere dati all’interno dei 
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programmi Visual Basic. Una finestra di dialogo di questo tipo vi- 
sualizza una richiesta che rimane in attesa di immissione da parte 
dell’utente o di un’operazione di clic, generando quindi la memo- 
rizzazione della stringa contenuta nella casella di immissione del- 
la finestra di dialogo InputBox.Le finestre di dialogo di questo tipo 
possono essere usate per richiedere all'utente di eseguire un’ope- 
razione particolare prima che il programma proceda (per esempio, 
in una finestra InputBox che richiede conferma di un'operazione, 
potrebbe essere necessario fare clic sul pulsante di comando Ok 
oppure su quello Annulla). 


La sintassi generale della funzione InputBox( ) è la seguente. 


InputBox(messaggio[, titolo] [, default] [, poxX] [, posY] 
[, fileHelp, contesto]) 


L'argomento messaggio rappresenta un'espressione stringa che vie- 
ne visualizzata come messaggio all’interno della finestra di dialogo 
InputBox. Il valore di questo argomento può essere composto da 
un massimo di 1.024 caratteri (il valore esatto dipende dalla di- 
mensione del carattere utilizzato). Se il valore dell’argomento mes - 
saggio contiene più righe, queste potranno essere separate trami- 
te un carattere di ritorno carrello (Chr(13)),da un carattere di avan- 
zamento riga (Chr(19)) o da una combinazione dei due caratteri 
(Chr(13) +Chr(10)). 


L'argomento titolo corrisponde a un’espressione stringa che spe- 
cifica il titolo che apparirà nella barra corrispondente della fine- 
stra di dialogo InputBox. Quando non si inserisce l’argomento ti - 
tolo, la finestra di dialogo InputBox visualizzerà, nella propria bar- 
ra del titolo, il nome dell’applicazione. L'argomento facoltativo de - 
fault è una espressione stringa che viene visualizzata nella casel- 
la di immissione quando viene aperta perla prima volta la finestra 
di dialogo InputBox. Rappresenta la risposta di default che il pro- 
gramma sì aspetta di ottenere dall’utente se questi non inserisce 
nulla nella casella di immissione. Quando si omette di indicare un 
valore per l'argomento default, la casella di immissione, quando 
viene aperta la finestra di dialogo InputBox, apparirà vuota. 


L'argomento facoltativo posX corrisponde a un'espressione nume- 
rica che specifica la distanza orizzontale (espressa in twips) del 
margine sinistro della finestra di dialogo a partire dal margine sini- 
stro dello schermo. Il twip (vedi glossario) rappresenta un’unità di 
misura indipendente da qualunque periferica. Quando si omette 
di indicare un valore per tale argomento, la finestra di dialogo Input 
Box apparirà orizzontalmente centrata.L'argomento facoltativo posY, 
invece, corrisponde a una espressione numerica che definisce la 
distanza verticale (espressa in twips) del margine superiore della 
finestra di dialogo rispetto al margine superiore dello schermo. 
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Anche in questo caso, se si omette di assegnare un valore all’argo- 
mento posY,Visual Basic posizionerà la finestra centrata in verticale È 
(ovvero il bordo superiore apparirà a circa 1/3 dell’altezza dello 5 
schermo). E 


L'argomento facoltativo fileHelp è un’espressione stringa che spe- 
cifica il file di guida contenente l’aiuto contestuale per la finestra 
di dialogo. Quando si assegna un valore a questo argomento è ne- 3 
cessario fornire anche un valore per l'argomento contesto. Que- (e 
st'ultimo argomento (facoltativo) corrisponde a un’espressione nu- SES 
merica che rappresenta il numero del sistema di guida contestuale | 
assegnato all’argomento stesso dall’autore del file di guida richia- 
mato. Quando si fornisce un valore per l'argomento contesto, è | 
necessario anche assegnare un valore all'argomento fileHelp. | 


Come valore per l’argomento default della finestra di dialogo Input 
Box, si utilizzi un’espressione stringa (memorizzata in una variabi- 
le). Questo fa sì che il valore corrente venga considerato come de- 
fault, evitando, quindi di dover utilizzare un valore fisso. | 


Viene ora proposto un esempio su come usare una finestra di dia- 
logo InputBox. L'esempio è basato su un pulsante di comando sul 
quale si deve fare clic per visualizzare la finestra di dialogo stessa.Il 
testo che l’utente digiterà viene automaticamente assegnato alla 
proprietà Caption di un controllo etichetta (al quale è stato asse- 
gnato il nome lblText). 


Private Sub cmdSetLabel Click( ) 

lblText.Caption = InputBox( "Inserire una nuova 
etichetta", "Immissione testo", lblText.Caption) 
End Sub 


La procedura imposta il risultato della funzione InputBox( ) come 
nuovo valore per la proprietà Caption del controllo Etichetta. La 
chiamata della funzione InputBox( ) si serve dei seguenti valori 
di argomento. 


+ Ilvalore dell'argomento prompt corrisponde alla stringa let- 
terale "Inserire una nuova etichetta" e,pertanto,la fine- 
stra di dialogo visualizzerà tale valore. 


+ Ilvalore dell'argomento titolo corrisponde alla stringa lette- 
rale "Immissione testo" che viene visualizzata nella fine- 
stra di dialogo per comunicare all’utente che deve scrivere 
una stringa letterale (e non numerica). 


+ Ilvalore dell'argomento default corrisponde alla proprie- 
tà Caption del controllo Etichetta. Pertanto il valore di de- 
fault diventa il contenuto dell’etichetta stessa. 
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La chiamata della funzione utilizza i valori di default anche per gli 
altri argomenti e la figura seguente è il risultato ottenuto. 


Ciao Mondol 


Imposta etichetta 


Immissione:testo (xi 
Inserire una nuova etichetta 
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aNTASg, 


Tramite la funzione MsgBox( ) Visual Basic consente di visualizza- 
re una finestra di dialogo MsgBox. Questa finestra di dialogo potrà 
essere utilizzata per richiedere semplicemente all'utente di fare clic 
su un pulsante di comando di conferma, di rinuncia o di annulla 
mento di una operazione 


La finestra di dialogo MsgBox richiede esplicitamente la pressione 
di un pulsante e il risultato ottenuto è un valore intero che rappre- 
senta il pulsante sul quale l'utente ha fatto clic. 


La sintassi generale della funzione MsgBox( ) è la seguente. 


MsgBox (messaggio[, pulsanti] [' titolo] [, fileHelp, 
contesto]) 


L'argomento messaggio rappresenta un'espressione stringa che vie- 
ne visualizzata come messaggio all’interno della finestra di dialogo 
Immissione.Il valore di questo argomento può essere composto da 
un massimo di 1.024 caratteri (il valore esatto dipende dalla di- 
mensione del carattere utilizzato). Se il valore dell'argomento mes - 
saggio contiene più righe, queste potranno essere separate trami- 
te un carattere di ritorno carrello (Chr (13)),da un carattere di avan- 
zamento riga (Chr(10)) o da una combinazione dei due caratteri 
(Chr (13) + Chr(10)). 


L'argomento facoltativo pulsanti corrisponde, invece,a un’espres- 
sione numerica che è la somma dei valori che specificano gli ele- 
menti seguenti. 
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Numero e tipo dei pulsanti da visualizzare. 
Stile di icona da utilizzare. 


Identità del pulsante di default. 


+ +++ 


Modalità della finestra di dialogo MsgBox .Le finestre di dia- 
logo modali richiedono che l’utente effetui una scelta prima 
che l’applicazione possa procedere. Le finestre di dialogo 
non modali, al contrario, non richiedono tale operazione con- 
sentendo comunque al programma di procedere con la pro- 
pria esecuzione. 


Quando non si assegna un valore all'argomento pulsanti,a esso 
viene assegnato il valore di default 0. L'argomento titolo è 
un’espressione stringa che specifica il nome che dovrà apparire 
nella barra del titolo della finestra MsgBox. Se non si specifica un 
valore per tale argomento, Visual Basic assegna automaticamente 
alla finestra il nome dell’applicazione. 


L'argomento facoltativo fileHelp è un'espressione stringa che spe- 
cifica il file di guida che contiene l’aiuto contestuale per la finestra 
di dialogo. Quando si assegna un valore a questo argomento è ne- 
cessario fornire anche un valore per l'argomento contesto. Que- 
st'ultimo argomento (facoltativo) corrisponde a un'espressione nu- 
merica che rappresenta il numero del sistema di guida contestuale 
assegnato all'argomento stesso dall'autore del file di guida richia- 
mato. Quando si fornisce un valore per l'argomento contesto, è 
necessario anche assegnare un valore all'argomento fileHelp. 


Nella tabella seguente vengono schematizzati i valori ammissibili 
per l’arsomento pulsanti. 


Costante Valore Descrizione Commenti 
vbOKonly 0 Visualizza solo il Definisce il numero 
pulsante di comando OK. e il tipo di pulsanti. 
vbOKCancel 1 Visualizza i pulsanti0K Definisce il 
e Annulla. numero e il tipo di 
pulsanti. 
vbAbortRetryIgnore 2 Visualizza i pulsanti Definisce il 
di comando Termina, numero e il tipo di 
Riprova e Ignora. pulsanti. 
vbYesNoCancel 3 Visualizza i puisanti Definisce il numero 
Sì, No e Annulla. g il tipo di pulsanti. 
vbYesNo 4 Visualizza i pulsanti Definisce il tipo e 
di comando Sì e No. il numero dei 
pulsanti. 


continua 
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Costante Valore Descrizione Commenti 

vbRetryCancel 5 Visualizza i pulsante Definisce il 
Riprova e Annulla. numero e il tipo di 

pulsanti. 

vbCritical 16 Visualizza l'icona Definisce uno stile 
di Messaggio critico. di icona. 

vbQuestion 32 Visualizza un'icona Definisce uno stile 
di attenzione (punto di icona. 
interrogativo). 

vbExclamation 48 Visualizza un'icona di Definisce uno stile 
richiesta di avviso (punto di icona. 
esclamativo). 

vbInformation 64 Visualizza un'icona Definisce uno stile 
di messaggio di avviso diicona. 
(contenente una “i”). 

vbDefaultButtoni 0 Il primo pulsante viene Definisce un 


considerato come quello pulsante di 


predefinito. default. 
vbDefaultButton2 256 Il secondo pulsante Definisce un 

viene considerato pulsante di 

predefinito. default. 


vbDefaultButton3 512 Imposta il terzo pulsante Definisce un 


come attivo per default. pulsante di 
default. 
vbDefaultButton4 768 Rende predefinito Definisce un 
il quarto pulsante. pulsante di 
default. 


Applicazione modale: Definisce una 
l'utente deve rispondere modalità. 

alla richiesta della finestra 

di dialogo prima di poter 

procedere con 

l'applicazione. 


vbApplicationModal 0 


Sistema modale: tutte 
le applicazioni vengono 
sospese fintanto che 
l'utente non risponderà 
alla richiesta della 
finestra. 


vbSystemModal 4096 Definisce una 


modalità. 


vbMsgBoxHelpButton 16384 Inserisce il pulsante per 


richiamare la guida. 


continua 


Finestra di dialogo “Messaggio” (MsgBox) 97 


Costante Valore Descrizione Commenti 
vbMsgBoxSetForeground 65536 Imposta la finestra Definisce una 
di dialogo come modalità. 


elemento che deve 
apparire sempre 


in primo piano. 
vbMsgBoxRight 524288 Il testo viene allineato Definisce una 
a destra. modalità. 


vbMsgBoxRtlReading 1048576 Specifica che il testo Definisce una 
dovrebbe apparire modalità. 
disposto da destra a 
sinistra per consentire 
una lettura sui sistemi 
ebraici o arabi. 


La tabella seguente riporta i valori restituiti dalla funzione MsgBox( ). 


Costante Valore Descrizione 
vboK 1 OK 
vbCancel 2 Annulla 
vbAbort 3 Interrompi 
vbRetry 4 Riprova 
vbIgnore 5 Ignora 
vbYes 6 Sì 

vbNo Ni No 


MsgBox( ).Il primo visualizza una finestra di dialogo “Sì/No/Annul- 


«2 Vengono ora proposti alcuni brevi esempi dell'uso della funzione 
la” mostrata in figura. 


v. È 
d ! Si vuole uscire? 


Il codice che genera questa finestra di dialogo è il seguente. 


msgRisultato = MsgBox("Si vuole uscire?", vbYesNoCancel + 
vbDefaultButtoni + vbExclamation) 
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In questo esempio viene richiamata la funzione MsgBox( ) asso- 
ciata ai seguenti valori di argomento. 


+ 


+ 


Il valore per l'argomento messaggio corrisponde alla strin- 
ga "Si vuole uscire?" che viene visualizzata all’interno 
della finestra di dialogo. 


Il valore per l'argomento pulsanti corrisponde all’espressio- 
ne vbYesNoCancel + vbDefaultButtoni + vbExclama- 
tion. Questa espressione fa sì che nella finestra di dialogo 
vengano visualizzati gli elementi seguenti. 


© Pulsanti “Sì”,“No”e “Annulla”. 
® Attivazione per default del primo pulsante. 
® Visualizzazione dell'icona contenente il punto esclamativo. 


Il valore per l'argomento titolo corrisponde alla stringa 
letterale "Domanda" che viene riportata a livello della barra 
del titolo della finestra. 


L'esempio successivo visualizza una finestra di dialogo di tipo “Ter- 
mina/Riprova/Ignora”, visualizzata in figura. 


(x) Riprovare? 
ì Ignora | 


Termina | { 


Il codice che genera questa finestra di dialogo è il seguente. 


msgRisultato = MsgBox("Riprovare?", vbCritical + 
vbAbortRetryIgnore + vbDefaultButton2, "Errore!") 


In questo esempio viene richiamata la funzione MsgBox( ) asso- 
ciata ai seguenti valori di argomento. 


Los 


Il valore per l'argomento messaggio corrisponde alla strin- 
ga letterale "Riprovare?" che viene riportata all’interno 
della finestra di dialogo stessa. 


Il valore dell'argomento pulsanti è definito dall’espressio- 
ne vbCritical + vbAbortRetryIgnore + vbDefaultBut - 
ton2. Questa espressione genera la visualizzazione dei se- 
guenti elementi. 

© Pulsanti “Termina” “Riprova” e “Ignora”. 

@ Attivazione per default del secondo pulsante. 


® Visualizzazione dell'icona di errore critico (una x). 
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+ Il valore per l'argomento titolo corrisponde alla stringa 
letterale "Errore!" che viene riportata a livello della barra 
del titolo della finestra stessa. 
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Le finestre di dialogo Apri (Open) e Salva con nome (Save As) sono 
conformi alle due corrispondenti versioni di finestre standard di 
Windows 9x. Per visualizzare queste finestre di dialogo si devono 
utilizzare, rispettivamente, i metodi Showopen( ) e ShowSave( ) del 
controllo CommonDialog. Entrambe le finestre di dialogo consento- 
no di specificare l’unità disco, la cartella, l'estensione e il nome del 
file. La finestra di dialogo Salva con nome è pressoché identica alla 
finestra di dialogo Apri con la sola eccezione dell'etichetta che 
appare nella barra del titolo della finestra stessa. In fase di esecu- 
zione dell’applicazione, quando l’utente seleziona un file e attiva 
la finestra di dialogo,la proprietà Filename memorizza il nome del 
file selezionato. Si ha anche la possibilità di impostare la proprietà 
Filter in modotale che nella finestra di dialogo vengano visualiz- 
zati solo i nomi di alcuni tipi di file (per esempio quelli di testo o 
altri documenti). La proprietà Flags influisce su alcuni elementi 
della finestra di dialogo e fa sì che l'utente venga avvisato quando 
vengono avviate alcune operazioni come, per esempio, la sovrascrit- 
tura di un file. 


Ricordare. Le finestre di dialogo Apri e Salva con nome non sono 
disponibili nell’edizione Standard di Visual Basic. 


Per maggiori informazioni sulle finestre di dialogo Apri e Salva con 
nome, si consulti il libro Visual Basic 6 For Dummies di Wallace 
Wang (Apogeo, 1998). 


Nella tabella seguente vengono riportate le proprietà più impor 
tanti della finestra di dialogo Apri. 


Proprietà: sintassi Scopo Esempio Commento 
DefaultExt: Restituisce o imposta dIgOpen. Assegna alla finestra 
oggetto. DefaultExt l'estensione di defaultper Default .Ext di dialogo dlgopen 
[= stringa] inomi difile riportati all'in: = ".txt" l'estensione di default 
terno della finestra di dia- st. 
logo. 
FileName: Restituisce o imposta il dlgOpen. Assegna alla proprietà 
oggetto. Filename percorso e ilnome delfile FileName = FileName il valore 
[= stringa] selezionato. "leggimi.txt" "leggimi.tt”. 


continua 
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Proprietà: sintassi 


Scopo 


FileTitle: 
oggetto.FileTitle 


Restituisce il nome (senza 
indicarne il percorso) del 
file da aprire o da salvare. 


Esempio 


mioFile = 
dlgOpen. 
FileTitle 


Commento 


Memorizza nella varia- 
bile mioFile il nome del 
file selezionato. 


Filter: 
oggetto.Filter 
[= stringa Filtro] 


Restituisce o imposta i filtri 
che dovranno apparire nel- 
la casella di elenco “Tipo 
file” della finestra di dialo- 


go. 


dlgOpen. Filter 


= "Testo 
(*.txt)1*.txt 
{Immagini 
(*.bmp;*.ico)| 
*.bmp;*.ico" 


Imposta i filtri per ac- 
cedere aifile di solo te- 
sto (*.TXT) o a quelli di 
tipo grafico (*.BMP e 
*.ICO). 


FilterIndex: 
oggetto.FilterIndex 
[= numero] 


Restituisce o imposta un fil- 
trodi defaultperuna finestra 
di dialogo Apri o Salva con 
nome. L'indice relativo al pri 
mo filtro corrisponde a 1. 


dlgOpen.Filter 
Index = 2 


DialogTitle: 
oggetto.DialogTitle 
[= stringa] 


Restituisce o imposta la 
stringa visualizzata nella 
barra deltitolo della finestra 
di dialogo. 


dlgOpen. 

DialogTitle = 
"Seleziona un 
file di testo" 


Attiva per defaultla se- 
lezione del secondo fil- 
tro. 


Applica alla barra del 
titolo della finestra di 
dialogo la stringa indi- 
cata. 


Flags: 
oggetto.Flags 
[= valore] 


Restituisce o imposta le op- 
zioni per una finestra di dia- 
logo Apri o Salva connome 
(si veda la tabella succes- 
siva). 


dlgOpen.Flags 
cd10FNLong 
Names 


= Imposta la proprietà 
Flags in modo che la fi- 
nestra di dialogo sia in 
grado di riconoscere il 
nome lungo dei file. 


InitDir: 
oggetto. InitDir 
[= stringa] 


Restituisce o imposta la 
cartella iniziale. 


MaxFileSize: 
oggetto.MaxFileSize 
[= valore] 


Restituisce o imposta la di- 
mensione massima deinomi 
di file aperti servendosi del 
controllo Common Dialog. 
L'argomento valore corri- 
sponde a un numero intero 
che specifica la dimensione 
massima (espressa in byte) 
del nome di file. L'intervallo 
ammissibile per questa pro- 
prietà va da 1Ka32Kedla di- 
mensione assunta per de- 
fault è pari a 256 byte. 


dlgOPpen.Initbir Imposta la cartella ra- 


=s ue 


dlgOpen. 
MaxFileSize = 
512 


dice come elemento 
iniziale. 


Imposta la dimensione 
massima del file a 512 


byte. 
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La tabella seguente riporta i valori ammissibili perla proprietà Flags 
delle finestre di dialogo Apri e Salva con nome. 


Descrizione 


Costante 


cdlOFNAllowMultiselect 


Valore 


&H200 


Fa sì che nell’area dei nomi dei file della fine- 
stra di dialogo venga attivata la possibilità di 
selezione multipla di file. L'utente può sele- 
zionare più di un file premendo e mantenen- 
do premuto iltasto Maiusc e utilizzando quin- 
diitasti T o Y per selezionare i file desiderati. 
L'utente potrà anche selezionare più file non 
contigui premendo e mantenendo premuto il 
tasto Ctrl e facendo clic sui singoli file che 
desidera selezionare. In questo caso, la pro- 
prietà FileName restituisce una stringa con- 
tenente i nomi dei file selezionati, separati 
l'uno dall'altro da uno spazio. 


cdlOFNCreatePrompt 


cdlOFNExplorer 


&H2000 


&H80000 


cdlOFNExtensionDifferent 


cdlOFNFileMustExist 


cdlOFNHelpButton 


&H400 


&H1000 


Fa sì che la finestra di dialogo richieda al- 
l'utente di creare un file che non esiste an- 
cora. Questa impostazione definisce automa- 
ticamente i marcatori cdloFNPathMustExist 
e cdlOFNFileMustExist. 


Si serve di una finestra di dialogo simile a 
quella di Explorer. Si tratta di un'impostazio- 
ne operativa solo con Windows 9x o Win- 
dows NT 4.0. 


Indica che l'estensione del nome del file re- 
stituito è diversa da quella specificata dalla 
proprietà DefaultExt. Questa impostazione 
non è possibile se la proprietà DefaultExt 
è impostata su Nul1,se l'estensione è corri- 
spondente oppure se il file non prevede 
estensione. Il valore può essere verificato 
chiudendo la finestra di dialogo. 


Fa sì che l'utente possa inserire nell'area di 
visualizzazione dell'elenco dei file solo nomi 
già esistenti. Con l'attivazione di questa im- 
postazione, se l'utente inserisce un nome di 
file non valido, viene visualizzato un messag- 
gio di avvertimento. Questa impostazione at- 
tiva automaticamente anche le impostazioni 
per cdlOFN PathMustExist. 


&H10 


Inserisce nella finestra di dialogo il pulsante 
di comando per accedere alla guida. 
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Descrizione 


Nasconde la casella di controllo per l'asse- 
gnazione dell'opzione di sola lettura dei file. 


Consente l’uso di nomi lunghi di file. 


Fa sì che l'indicazione della cartella corren- 
te venga riportata a quella originaria quando 
la finestra di dialogo è stata aperta. 


Fa sì che i collegamenti non vengano “an- 
nullati”. Per default questa impostazione at- 
tiva una “dereferenziazione” dei collegamen- 
ti, cioè determina la sostituzione di un colle- 
gamento con l'oggetto cui si riferisce. 


Non consente l'uso di nomi lunghi di file. 


Fa sì che al file restituito non venga applica- 
to l'attributo di sola lettura né inserito in una 
cartella di tipo protetto. 


Costante Valore 
cdl0FNHideReadOnly &H4 
cdl0FNLongNames &H200000 
cdl0FNNoChangeDir &H8 
cdlOFNNoDereferenceLinks &H100000 
cdlOFNNoLongNames &H40000 
cdlOFNNoReadOnlyReturn &H8000 
cdlOFNNoValidate &H100 
cdlOFNOverritePrompt &H2 
cdlOFNPathNameMustExist &H800 
cdlOFNreadOnly &H1 
cdAlOFNShareAware &H4000 


Fa si che la finestra di dialogo comune ac- 
cetti anche nomi di file con caratteri non va- 
lidi. 

Fa sì che la finestra di dialogo Salva con nome 
visualizzi un messaggio di avvertimento pri- 
ma di sovrascrivere un file già esistente. 


Fa sì che l'utente possa inserire solo percor- 
si di memorizzazione esistenti. Quando que- 
sta impostazione è attiva e l'utente scrive un 
percorso di memorizzazione non esistente, la 
finestra di dialogo visualizza un messaggio 
di avvertimento. 


Fa sì che la casella di controllo relativa al- 
l'opzione per l'impostazione dell'attributo di 
sola lettura per i file sia inizialmente attiva. 
L'attivazione di questa impostazione consen- 
te anche di controllare lo stato della casella 
di controllo quando la finestra di dialogo vie- 
ne chiusa. 


Fa sì che vengano ignorati gli errori di viola- 
zione della condivisione. 


La figura seguente è un esempio di applicazione che visualizza una 
finestra di dialogo Apri. 
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sa Demo'Apri file È [_IDTx| 


Hai selezionato C:\WINDOW/S\Script.doc 


a] Menu Avvio Temp 
|] msapps [ia Temporary Intemet Files 
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Apri file diltesto ; 2[x| 
Cerca in: [EI Windows “] | (=j Es ni 


I) Odbe (A Wangsamp 
| Preferiti web 
|] SendTo l'dfiScrph 
I] System 

seppe =psseap) 
Nome file: Script 
Tipo file: [Documenti x | Annulla | 


TT Apriîn sola lettura 


La tabella seguente riporta le impostazioni delle proprietà degli 


oggetti presenti nella figura precedente. 


Oggetto Proprietà Impostazione 
Form Name Form1 (default) 
Caption Demo Apri 
Common Dialog Name digOpen 
Pulsante comando Name cmdOpen 
Caption Apri file 
Etichetta Name IbIFile 


Si propone ora il codice sorgente per la generazione della finestra 


di dialogo Apri. 


Private Sub cmdOpen _Click( ) 
dlgOpen.InitDir = "\" 
dlgOpen.DialogTitle = "Apri file di testo" 


dlgOpen.Filter = "File di testoj*.txt{" + "Documenti 


1 daGi i" 
dlgOpen.FilterIndex = 2 
' visualizza la finestra di dialogo Open 
dlg.Open.Showopen 


lblFile.Caption = "Hai selezionato " + digOpen.FileName 
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End Sub 

Private Sub Form Load( ) 
lblFile.Caption = "" 

End Sub 


Il codice utilizza la procedura Form_Load( ) per inizializzare il 
form svuotando la proprietà Caption del controllo Etichetta. 


La procedura cmdOpen_Click( ) risponde al clic sul pulsante di 
comando Apri File eseguendo le operazioni seguenti. 


+ Impostala proprietà InitDir della finestra di dialogo Apri a 
“\” in modo da definire la cartella radice come elemento 
iniziale. 

+ Imposta la proprietà DialogTitle della finestra di dialogo 
Apri in modo che la barra del titolo della finestra di dialogo 
Apri riporti la stringa Apri file di testo. 


+ Imposta la proprietà Filter della finestra di dialogo Apri 
assegnandole la stringa letterale file di testo! 
*.txt|jDocumentj*.docj{".Questa stringa contiene due fil- 
tri: uno per i file di solo testo (*.TXT) e il secondo per i file 
documento (*.DOC). 


+ Imposta a 2 la proprietà FilterIndex della finestra di dia- 
logo Apri in modo che all’apertura della finestra risulti sele- 
zionato il filtro relativo il file documento (*.DOC). 


* Abprela finestra di dialogo Apri con il metodo Showopen( ). 


+ Imposta la proprietà Caption dell’etichetta al valore della 
proprietà FileName della finestra di dialogo Apri. Questa ope- 
razione riflette visivamente il nome del file selezionato dal- 
l’utente. 
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La finestra di dialogo Stampa fa parte delle finestre standard di 
Windows 9x e consente all'utente di specificare un intervallo di 
pagine da stampare, la qualità di stampa, il numero delle copie, la 
loro eventuale fascicolazione e la creazione di un file di stampa su 
disco. 


Questa finestra di dialogo contiene anche le informazioni relative 
alla o alle stampanti installate e consente all’utente di configurare o 
installare una nuova stampante di default. Per visualizzare la finestra 
di dialogo Stampa si deve utilizzare il metodo ShowPrinter( ) e per 
usarla sarà necessario definire le appropriate impostazioni del con- 
trollo CommonDialog relative alla finestra di dialogo Stampa. 
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Ricordare. La finestra di dialogo Stampa è disponibile solo nella 
versione Professional di Visual Basic 6. 


La tabella seguente riporta le proprietà più importanti della fine- 
stra di dialogo Stampa. 


Proprietà: sintassi Scopo Esempio Commento 

Copies: Restituisce oimposta il  dlgPrint. Imposta il numero di 
oggetto.Copies numero di copie da Copies = 10 copie da stampare a 
[= numero] stampare. 10. 

FromPage: Restituisce oimposta il  dlgPrint. Fa sì che la stampa ini- 
oggetto .FromPage numero di pagina ini-  FromPage = 1 zi dalla prima pagina. 
[= numero] ziale da stampare. 

ToPage: Restituisce o imposta il  dlgPrint. L'ultima pagina da 
oggetto. ToPage numero dell'ultima pa-  ToPage = 10 stampare sarà la nu- 
[= numero] gina da stampare. mero 10. 

Min: Restituisce o imposta digPrint. Imposta a 0 l'intervallo 
oggetto.Min l'intervallo minimo di Min = @ minimo di pagine da 
[= numero] pagine da stampare. stampare. 

Max: Restituisce o imposta digPrint. Imposta a 1000 l'inter- 
oggetto.Max l'intervallo massimo di Max = 1000 vallo massimo di pagi- 
[= numero] pagine da stampare. ne da stampare. 
PrinterDefault: Restituisce o imposta digPrint. Applica le impostazio- 
oggetto .Printer un'opzione che deter- Printer ni di default alla fine- 


Default 
[= booleano] 


Flags: 
oggetto.Flags 
[= valore] 


mina se le selezioni del- 
l'utente della finestra di 
dialogo Stampa debba- 
no essere applicate per 
modificare le imposta- 
zioni di sistema per la 
stampante predefinita. 


Default = True 


stra di dialogo Stampa. 


Restituisce o imposta le 
opzioni per una finestra 
di dialogo Stampa (si 
veda la tabella seguen- 
te). 


digPrint. Flags 
= cdAlAllPages 


Imposta la proprietà 
Flags a cdIAllPages. 


100 Finestra di dialogo “Stampa” 


La tabella seguente riporta i valori applicabili alla proprietà Flags. 


Costante Valore Descrizione 

cAlPDALlPages &Ho Restituisce o imposta lo stato del pulsante di 
opzione per la stampa di tutte le pagine. 

cAlPDCollate &H10 Restituisce o imposta lo stato del pulsante di 
opzione per la fascicolazione delle pagine. 

cdIlPDDisable PrintToFile —&H80020 Disabilita la casella di controllo per la crea- 
zione di un file di stampa su disco. 

caAlPDHelpButton &H800 Inserisce nella finestra di dialogo il pulsante 
di comando per accedere alla guida. 

cdlPDHideprint ToFile &H100000 Nasconde la casella di controllo per la ge- 
nerazione di file di stampa su disco. 

cd1PDNoPageNums &H8 Disabilita il pulsante di opzione delle pagine 
da stampare e i corrispondenti controlli di- 
pendenti. 

cdlPDNoSelection &H4 Disabilita il pulsante di opzione per la stam- 
pa di una selezione del documento. 

cd1PDNoWarning &H80 Evita la presentazione di messaggi quando 
non è stata impostata una stampante prede- 
finita. 

cd1PDPageNums &H2 Restituisce o imposta lo stato del pulsante di 
opzione Pagine. 

cAlPDPrintSetup &H40 Consente al sistema di visualizzare la fine- 
stra di dialogo di impostazione della stampan- 
te al posto della finestra di dialogo Stampa. 

cdiPDPrintToFile &H20 Restituisce o imposta lo stato della casella 
di controllo per la generazione di stampa su 
disco. 

cdlPDReturnDC &H100 Restituisce un contesto di periferica relativo 
alla selezione di stampante effettuato all'in- 
terno della finestra di dialogo. 

cdlPDReturn default &H400 Restituisce il nome della stampante predefi- 
nita. 

cd1PDReturnIc &H200 Restituisce un'informazione contestuale re- 


lativa alla selezione della stampante fatta 
nella finestra di dialogo. Un'informazione 
contestuale è un sistema rapido per ottene- 
re le informazioni su una periferica senza 
dovere creare un contesto di periferica. 


continua 


Finestra di dialogo “Stampa” 107 


Descrizione 


Costante Valore 
cdlPDSelection &H1 
cd1PDUseDevModeCopies &H40000 


Restituisce o imposta lo stato relativo al pul- 
sante di opzione Selezione. Se non vengono 
specificati né cdlPDPageNums né cd1PDSe - 
lection, per defaultviene selezionato il pul- 
sante di opzione che stampa tutte le pagine. 


Se un driver di stampante non è in grado di 
gestire la stampa di copie multiple, l'attiva- 
zione di questa impostazione disabilita la ca- 
sella per la definizione delle copie da stam- 
pare. In caso contrario, l'attivazione di que- 
sta impostazione indica che la finestra di dia- 
logo memorizza il numero di copie richiesto 
all'interno della proprietà Copies. 


La figura seguente è il risultato del programma di esempio che ver 
rà ora presentato. Come si noterà, l'applicazione visualizza un mo- 
dulo con un'etichetta e il pulsante di comando Finestra stampa. 
Quando l’utente farà clic su questo pulsante, il programma visualiz- 
za la finestra di dialogo Stampa. Quando l’utente chiude la finestra 
di dialogo, il programma visualizza, nel controllo Etichetta, l'inter 


vallo di pagine da stampare, lo 
di copie. 


a_Demo Finestra stampa 0 - (DIx| 


Intervallo di stampa: 1 a 100 
Stampa su file: falso 
Fascicola: vero 

Numero di copie: 4 


Stampa 


| 


| Commento: 


E e delete 
pIntervallo di stampa — 
| © Tutte le 200 pagine 


{Stampante ———— 


| Nome: {HP LaserJet Series | (Copia 2) v ] Proprietà | 
| Stato: Stampante predefinita; Intervento utente; O documenti in attesa 


I Tipo: HP LaserJet Series Il 
| Percorso; \\SERVER\HPserver 


stato di stampa su disco e il numero 


Numero copie: (A | 


ci * | 
Il E - 
da: |1 ilo Re TS 
Î | TÉ ek W Fascio. 
N a 


La tabella seguente riporta l’impostazione delle proprietà degli 


oggetti componenti la figura. 
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Oggetto Proprietà Impostazione 
Form Name Form1 (default) 
: Caption Demo Finestra stampa 
Common Dialog Name digPrint 
Pulsante comando Name cmdPrintDialog 
Caption Finestra &stampa 
Etichetta Name IbIPrintInfo 


Ecco il codice sorgente. 


Private Sub cmdprintDialog Click( ) 
Dim CRLF As String * 2 
Dim Msg As String 


CRLF = Chr$(13) + Chr$(10) 

' svuota la modalità di default 

dlgPrint.PrinterDefault = False 

' imposta la proprietà Flags 

dlgPrint.Flags = cdl1PDAllPages Or cdlPDSelection 
Or cdlPDCollate Or calPDPageNums 

dlgPrint.Min = 1 

dlgPrint.Max = 200 

dlgPrint.FromPage = 1 

dlgPrint.ToPage = 100 

' Visualizza la finestra di dialogo Stampa 

dlgPrint.ShowPrint 

Msg = "Intervallo di stampa: " 

If dlgPrint.Flags And cdlPDSelection Then 
Msg = Msg + Selezione" 

ElseIf dlgPrint.Flags And cdlPDPageNums Then 
Msg = Msg + "Page" + Str(dlgPrint.FromPage) + 
" to" + Str(dlgPrint.ToPage) 

Else 
Msg = Msg + "All Pages" 

End If 

Msg = Msg + CRLF + "Stampa su file: " 

If dlgPrint.Flags And cdlPDPrintToFile Then 
Msg = Msg + "Vero" 

Else 

Msg = Msg + "Falso" 

End If 

Msg = Msg + CRLF + "Fascicola: " 

If dlgPrint.Flags And cdlPDCollate Then 
Msg = Msg + "Vero" 

Else 
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Msg = Msg + "Falso" 
End If 
Msg = Msg + CRLF + "Numero di copie:" 
+ Str(dlgPrint.Copies) 
lblPrintInfo.Caption = Msg 
End Sub 


Private Sub Form Load( ) 
lblPrintInfo.Caption = "" 
lblPrintInfo.Font.Name = "Courier" 


lblPrintInfo.Font.Size 


12 


End Sub 


La procedura Form _Load( ) inizializza il controllo Etichetta svuo- 
tandolo dal contenuto e impostando il tipo e la dimensione del 
carattere a Courier 12 punti. 


La procedura cmdPrintDialog Click( ) risponde a un clic sul 
pulsante Finestra stampa eseguendo le operazioni seguenti. 


+ 
+ 


Imposta su False la proprietà PrinterDefault. 


Imposta la proprietà Flags della finestra di dialogo Stampa 
in modo da attivare i valori cdlPDAl1lPages, cdlPDSelec- 
tion,cdlPDCollate e cdlPDPageNums.Questi valori consen- 
tono all’utente di selezionare la stampa di tutte le pagine, di 
stampare solo quelle selezionate o un loro intervallo e di 
decidere se attivare o meno la fascicolazione. 


Assegna 1 e 200 alle proprietà Min e Max della finestra di 
dialogo Stampa. Questa operazione definisce l'intervallo di 
pagine valido. 


Assegna 1 e 100 alle proprietà FromPage e ToPage della fine- 
stra di dialogo Stampa. Questa operazione definisce l’inter 
vallo di pagine da stampare, così come riportato nella fine- 
stra di dialogo stessa. 


Visualizza la finestra di dialogo Stampa richiamata dal me- 
todo ShowPrint( ). 


Determina il tipo di intervallo di pagine e ne memorizza il 
valore nella variabile stringa locale Msg. Questa operazione 
utilizza un enunciato If -Else che prende in esame la pro- 
prietà Flags.Se l'utente ha deciso di stampare un intervallo 
di pagine, l'operazione accede a tale intervallo tramite le 
proprietà FromPage e ToPage. 


Memorizza nella variabile Msg lo stato della casella di con- 
trollo per la creazione di una stampa su disco. Questa opera- 
zione si serve di un enunciato If che determina se l’utente 
ha attivato la casella di controllo per la stampa su disco. 
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+ Memorizza nella variabile locale Msg lo stato della casella 
di controllo perla fascicolazione delle pagine servendosi di 
un enunciato If che determina se l’utente ha attivato tale 
casella di controllo. 


+ Memorizza nella variabile Msg il numero di copie da stam- 
pare.L'operazione accede alla proprietà Copies dalla quale 
estrae il numero di copie inserito dall'utente. 


+ Copia la stringa nella variabile Msg (che contiene varie ri- 
ghe di testo) e la visualizza all’interno del controllo “Etichet- 
ta” del form. 


Controlli avanzati 


In questa parte si prendono in esame i controlli avanzati di 
Visual Basic con i quali si può — quando combinati con i 
controlli basilari descritti nella Parte I/— eseguire qualsiasi 
operazione. Molti dei controlli qui esaminati richiedono la 
versione Professional o Enterprise di Visual Basic 6 e, nella 
maggior parte dei casi, non sono disponibili nella versione 
Standard.I controlli qui descritti consentono di accedere a 
molte delle interfacce standard di Windows 9x tramite le 
quali si potranno aprire file, visualizzare immagini ed ese- 
guire molte altre operazioni. 


Argomenti trattati 


v Uso dei controlli per visualizzare forme 
e immagini 

v Uso dei controlli per consentire all’utente 
di accedere a file e cartelle 


v Uso del temporizzatore per la gestione 
degli eventi temporizzati 
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Controllo “DirListBox” 


Visual Basic prevede la presenza del controllo Elenco cartelle (Di- 
rectory List Box) con il quale, in fase di esecuzione dell’applicazio- 
ne, sì potrà visualizzare il contenuto e il percorso di file contenuti 
in cartelle (spesso chiamate directory) in base alla loro struttura 
gerarchica e di dipendenza. 


Proprietà: sintassi 


Scopo 


Path: 
oggetto.Path 
[= nome Percorso] 


List: 
oggetto.List 


(indice) [= stringa] 


Restituisce o imposta il 
percorso di memorizza- 
zione attivo. Questa pro- 
prietà non è disponibile 
in fase di progettazione 
dell'applicazione. 


Restituisce la voce del- 
la cartella selezionata 
all’interno del controllo. 


ListCount: 
oggetto.ListCount 


Restituisce il numero del- 
le voci contenute nella 
cartella selezionata. 


La tabella seguente riporta le proprietà più importanti di questo 
controllo.Gli eventi più significativi sono,invece: Click, Change,Scroll, 
GotFocus e LostFocus. 


Esempio 


elencoDir. Path 
= "\Windows" 


SelDir = elenco 
Dir.List(elenco 
Dir.ListIndex) 


If elencoDir. 
ListCount > 0 
Then 


Commento 


Imposta il percorso di 
memorizzazione del 
controllo elencoDir in 
modo che venga visua- 
lizzato il contenuto del- 
la cartella Windows. 


Memorizza nella va- 
riabile SelDirla cartel- 
la selezionata. 


Determina quante voci 
sono contenute nel 
controllo elencoDir. 


ListIndex: 
oggetto.ListIndex 
[= indice] 


«SEM, 


Restituisce o imposta 
l'indice della voce sele- 
zionata all'interno del 
controllo. 


miaSel = 
elencoDir.List 
(elencoDir. 
ListIndex) 


Memorizza nella va- 
riabilemia Sel la car- 
tella selezionata 


Si osservi ora la figura che è il risultato del programma di esempio 


che verrà ora presentato. Come si noterà, l'applicazione visualizza 
un form contenente un elenco di unità disco e di cartelle.Quando 
l’utente selezionerà una nuova unità disco o cartella, il programma 
rifletterà tale operazione segnalandola all’interno dell'etichetta del 
form stesso. 
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a. Directory BE 


Il percorso corrente e' :c:\Program Files\Microsoft Vist 


A] 


Qel 
‘N Program Files 
DI Microsoft Visual Studio 


O Template 
Ea Tsal 
{_] Wizards 


Nella tabella seguente si elencano le impostazioni delle proprietà 
degli oggetti componenti il Form. 


Oggetto Proprietà Impostazione 
Form Name Form1 (default) 
Caption Directory 
Etichetta Name IbIDrive 
DirListBox Name drvDrive 
DirListBox Name dirList 


Ecco il codice sorgente. 


Sub ShowPath( ) 
lblDrive.Caption = "Il percorso corrente è " + 
dirList.Path 
End Sub 
Private Sub DirList Change( ) 
ShowPath 
End Sub 
Private Sub drvDrive Change( ) 
drvDrive.Drive = drvDrive.List(drvDrive.ListIndex) 
dirList.Path = drvDrive.Drive 
ShowPath 
End Sub 
Private Sub Form Load( ) 
ShowPath 
End Sub 


Questo codice contiene la procedura ShowPath( ) che visualizza, 
trasferendone il valore alla proprietà Caption del controllo Etichet- 
ta, il percorso attivo. La procedura ShowPath() accede a tale per 
corso servendosi della proprietà Path del controllo DirListBox. 
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La procedura Form_Load( ) inizializza il form richiamando la pro- 
cedura ShowPath( ) in modo da visualizzare il percorso iniziale. 
La procedura dirList_Change( ) risponde ai cambiamenti di se- 
lezione della voce selezionata all’interno della casella dell'elenco 
delle cartelle richiamando la procedura ShowPath( ) in modo da 
visualizzarne il nuovo percorso. 


La procedura drvDrive_Change( ),da parte sua, risponde alla sele- 
zione di una nuova unità disco eseguendo le seguenti operazioni. 


*+ Assegna l’unità disco selezionata alla proprietà Drive del 
controllo dell’elenco delle unità disco. 


+ Assegnaalla proprietà Path del controllo dell’elenco delle 
cartelle il valore della proprietà Drive. 


+ Visualizza il nuovo percorso richiamando la procedura 
ShowPath( ). 
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Il controllo Casella di riepilogo delle unità (Drive List Box) permet 
te di selezionare, in fase di esecuzione dell’applicazione, un’unità 
disco. Questo controllo viene usato per visualizzare un elenco con- 
tenente tutte le unità disco installate nel sistema. 


La tabella seguente riporta le più importanti proprietà applicabili a 
questo controllo. Gli eventi più significativi associati, sono, invece, 
Click,Change, Scroll, GotFocus e LostFocus. 


Proprietà: sintassi Scopo Esempio Commento 
Drive: Restituisce o imposta drvDrive. Imposta l'unità disco 
oggetto. Drive l'unità disco corrente. Drive = "C:" del controllo drvDrive 
[= nomePercorso] Questa proprietà non è su C: 

disponibile in fase di 

progettazione dell'appli- 

cazione. 
List: Restituisce l'elenco del- SelDrv = Memorizza nella varia- 
oggetto.List le voci del controllo Dri- drvDrive.List bile SelDrv l'unità di- 
(indice) [= stringa] veListBox. (drvDrive. sco selezionata. 

ListIndex) 


ListCount: 
oggetto.ListCount 


Restituisce il numero 
degli elementi contenu- 
ti nel controllo DriveList- 
Box. 


If drvDrive. 
ListCount > 0 
Then 


Determina la presenza 
di voci all'interno del 
controllo drvDrive 


continua 
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Proprietà: sintassi Scopo Esempio Commento 
ListIndex: Restituisce o imposta miaSel = Memorizza nella varia- 
oggetto.ListIndex l'indice della voce se- drvDrive.List bile miaSel l'unità di- 
[= indice] lezionata all'interno del (drvDrive. sco selezionata. 
controllo. ListIndex) 
«ste La figura seguente è il risultato del programma di esempio che ver 


| 
NS 
a 


Tp. 


rà ora proposto. L'applicazione visualizza un form contenente un 
elenco di unità disco; quando l’utente selezionerà un’unità disco 
diversa, il programma rifletterà tale selezione all’interno del con- 
trollo Etichetta del modulo stesso. 


îa. Dischi GE [- [O] x| 


Il disco comente e' o: 


Ss __ 


La tabella seguente elenca l'impostazione delle proprietà dei vari 
oggetti del modulo. 


Oggetto Proprietà Impostazione 
Form Name Form1 (default) 
Caption Dischi 
Etichetta Name IbIDrive 
DriveListBox Name drvDrive "= 


Ecco il codice sorgente dell’applicazione. 


Sub ShowDrive( ) 
lblDrive.Caption = "Il disco corrente è " + 
drvDrive.Drive 
End Sub 
Private Sub drvDrive Change( ) 
ShowDrive . 
End Sub 
Private Sub Form Load( ) 
ShowDrive 
End Sub 
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La procedura Showdrive( ) utilizza l’unità disco attiva assegnan- 
done il valore corrispondente alla proprietà Caption del controllo 
“Etichetta”.Questa routine accede all’unità disco tramite la proprietà 
Drive del controllo DriveListBox. 


La procedura Form_Load( ) inizializza il form richiamando la pro- 
cedura ShowPath( ) per visualizzare l’unità disco iniziale. La pro- 
cedura drvDrive_Change( ) risponde alla modifica dell’unità di- 
sco all’interno del controllo DriveListBox richiamando la procedu- 
ra ShowPath( ) visualizzando, così, il nuovo identificativo di unità 
disco. 


Controllo FileListBox 


Il controllo FileListBox di Visual Basic consente di visualizzare, in 
fase di esecuzione dell’applicazione, l'elenco dei file di un deter 
minato percorso di memorizzazione. 


La tabella seguente riporta le proprietà più importanti di questo 
controllo, mentre tra gli eventi più rilevanti,si ricordano Click,Chan - 
ge, Scroll, GotFocus e LostFocus. 


Proprietà: sintassi 


Scopo Esempio Commento 


Path: 


oggetto.Path 


Restituisce o imposta il fileList.Path = Imposta il percorso del 


[= nomepercorso] 


List: 
oggetto.List 
(indice) [= stringa] 


ListCount: 
oggetto.ListCount 


percorso attivo. Questa "C:" controllo fileList 
proprietà non è disponi- alla cartella Windows 
bile in fase di progetta- dell'unità disco C: 
zione dell'applicazione. 

Restituisce l'elenco di selFile = Memorizza nella varia- 
voci contenute nel con- fileList.List(fileist. bile SelFile il file se- 
trollo File List Box. ListIndex) lezionato. 

Restituisce il numero di If Determina se vi sono 


elementi contenuti nel con- 
trollo File List Box. 


fileList.ListCount 
> 0 Then 


elementi nel controllo 
fileList. 


ListIndex: Restituisce o imposta miaSel = Memorizza il file sele- 
oggetto.ListIndex l'indice della voce sele- filelist.List(filelist. zionato all'interno del- 
[= indice] zionata all'interno del ListIndex) la variabile miaSel. 
controllo. 
Filename: Restituisce il nome del SelFile = Memorizza il nome del 
oggetto.Filename file selezionato. filList. file selezionato all'in- 
Filename terno della variabile 


SelFile. 


SD 
R 
2. 


Per maggiori informazioni sul controllo File List Box, si consulti il 
libro Visual Basic 6 For Dummies di Wallace Wang (Apogeo, 1998). 
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La figura seguente è il risultato del programma di esempio che ver- 
rà ora presentato. Come si noterà, la figura è composta da un form 
che contiene le caselle per la visualizzazione dell’unità disco, della 
cartella e dell’elenco dei file.Quando l'utente selezionerà una nuova 
unità disco, cartella o file, il programma rifletterà tale scelta all’in- 
terno del testo dell’etichetta contenuta nel modulo stesso. 


@a File BE 


Il file corrente e" C:\Program Files\Microsoft Visual Studio\VB98\C2. EXE 


Sc Si 


DICA 
DI Program Files 
A Microsoft Visual Studio 


[I Template 
I Tsq 
DI Wizards 


ADDSCCIT.DLL 
ADDSCCUS.DLL 
BIBLIO.MDB 


CVPACK.EXE 
DATAVIEW.DLL 
LINK.EXE 

MSDIS110.DLL 


La tabella seguente riporta l'elenco delle impostazioni delle pro- 
prietà degli oggetti del form. 


Oggetto Proprietà Impostazione 

Form Name Form1 (default) 
Caption File 

Etichetta Name IbIDrive 

DriveListBox Name drvDrive 

DirListBox Name dirList 

FileListBox Name filList 


Ecco il codice sorgente dell’applicazione. 


Sub ShowPath(BackSlash As String) 
lb1lDrive.Caption = "Il file corrente è " + 
dirList.List(dirList.ListIndex) + BackSlash + 

fillist.Filename 

End Sub 

Private Sub dirList Change( ) 
fillist.Filename = dirList.Path 
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ShowPath "_" 

End Sub 

Private Sub drvDrive Change( ) 
drvDrive.Drive = drvDrive.List(drvDrive.ListIndex) 
dirList.Path = drvDrive.Drive 
ShowPath "_" 

End Sub 

Private Sub filList Click( ) 
ShowPath "\" 

End Sub 

Private Sub Form _Load( ) 
ShowPath " " 

End Sub 


La procedura ShowPath( ) visualizza il percorso attivo e il file sele- 
zionato. Questa routine accede al percorso servendosi dell’espres- 
sione dirList.List(dirList.ListIndex)e al nome del file tra- 
mite la proprietà Filename del controllo File List Box.La proce- 
dura prevede un argomento BackSlash di tipo String che viene 
utilizzato per visualizzare, quando necessario, prima del nome del 
file, una barra rovesciata (“\”). 


La procedura Form_Load( ) inizializza il form richiamando la pro- 
cedura ShowPath( ) per visualizzare l’unità disco iniziale. Il valore 
dell'argomento di questa chiamata è pari a una stringa contenente 
uno spazio (" ").La procedura filList_Click( ) risponde a un 
clic all’interno del controllo File List Box richiamando la proce- 
dura ShowPath( ) per visualizzare il percorso di memorizzazione 
corrente e il nuovo file selezionato.Il valore dell'argomento di que- 
sta chiamata corrisponde alla stringa "\". 


La procedura dirList_Change( ) risponde alla selezione di una 
nuova cartella assegnando alla proprietà Filename del controllo 
File List Box il valore della proprietà Path del controllo DirListBox 
e richiamando, successivamente, la procedura ShowPath( ).Il valo- 
re dell'argomento per la chiamata della procedura ShowPath( ) 
corrisponde a una stringa contenente uno spazio (" "). 


La procedura drvDrive_Change( ) risponde alla selezione di una 
nuova unità disco eseguendo le operazioni seguenti. 


+ Assegna l’unità disco selezionata alla proprietà Drive del 
controllo DriveListBox. 


+ Assegna la proprietà Drive del controllo DriveListBox alla 
proprietà Path del controllo DirListBox. 


+ Richiama la procedura ShowPath( ) utilizzando una strin- 
ga contenente uno spazio (" ") come valore di argomento 
della chiamata stessa. 
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Controllo “Immagine” 


Il controllo Immagine (Image) consente di visualizzare della grafi- 
ca o un'icona all’interno di un form. L'immagine sorgente deve es- 
sere di tipo bitmap, un’icona, un'immagine in formato metafile o 
enhanced metafile, JPEG o GIF Sebbene si abbia la possibilità di 
inserire un controllo Immagine in una struttura di contenitore (tipo 
di controllo particolare di Visual Basic che permette di racchiude- 
re e raggruppare altri controlli tra loro correlati), un controllo Im- 
magine non può funzionare come contenitore. 


Il controllo Immagine usa un numero inferiore di risorse di sistema 
e viene ridisegnato più rapidamente rispetto a un controllo Picture 
anche se è in grado di gestire un numero inferiore di proprietà, eventi 
e metodi. 


Vedi anche: in questa parte, la sezione che descrive il controllo 
“Picture”. 


La tabella seguente riporta le proprietà più importanti di un con- 
trollo Immagine mentre gli eventi più rilevanti sono Click, Db1- 
Click e quelli correlati alle operazioni eseguite con il mouse. 


Proprietà: sintassi Scopo Esempio Commento 

Picture: Restituisce o imposta il imgPic.Picture = Caricailcontenuto gra- 
oggetto.Picture contenuto grafico del LoadPicture fico del file I0.BMP e 
[= immagine] controllo Immagine. ("io.bmp") lo inserisce all'interno 


del controllo imgPic. 


Stretch: Restituisce o imposta un imgPic.Stretch = Imposta la proprietà 
oggetto.Stretch valore che indica se l'im- True Stretch del controllo 
[= booleano] magine grafica deve es- immagine imgPic. 
sere ridimensionata per 
adattarsi alle dimensioni 
del controllo Immagine. 
«SEMIR/, 


Viene ora proposto un esempio di applicazione che utilizza un 
controllo Immagine e il cui risultato viene visualizzato nella figura 
seguente. L'esempio genera un form contenente un controllo Im- 
magine e quattro pulsanti.I primi tre richiamano l’immagine grafi- 
ca memorizzata nei file PIC1.BMP PIC2.BMP e PIC3.BMP mentre il 
quarto fa sì che le tre immagini grafiche contenute in questi file 
vengano visualizzate sequenzialmente come se si trattasse di una 
presentazione a video.Il programma fa uso di un controllo di tem- 
porizzazione per visualizzare ogni immagine grafica per un secon- 
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do e quindi richiamare l’immagine successiva, visualizzandola per 
un altro secondo e così via. 


=. Immagini BOE 


Darica Carica Carica 
immagine 1 immagine 2 immagine 3 


La tabella seguente elenca le impostazioni delle proprietà degli 
oggetti del modulo. 


Oggetto Proprietà Impostazione 
Form Name Form1 (default) 

Caption Immagini 
Controllo Immagine Name imgBMP 
Pulsante di comando Name cmdBMP1 

Caption Carica immagine 1 
Pulsante di comando Name cmdBMP2 

Caption Carica immagine 2 
Pulsante dicomando Name cmdBMP3 

Caption Carica immagine 3 
Pulsante dicomando Name cmdSlide 

Caption &Avvia sequenza 
Timer Name tmrTimer 

Interval 1000 


Ecco il codice sorgente dell’applicazione. 


Dim ImageIndex As Integer 
Private Sub cmdBmpi Click( ) 
Set imgBmp.Picture = LoadPicture("\pic1.bmp") 
End Sub 
Private Sub cmdBmp2 Click( ) 
Set imgBmp.Picture = LoadPicture("\pic2.bmp") 
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End Sub 
Private Sub cmdBmp3_Click( ) 
Set imgBmp.Picture = LoadPicture("\pic3.bmp") 
End Sub 
Private Sub cmdSlide Click( ) 

If cmdSlide.Caption = "&Avvia sequenza" Then 
cmdSlide.Caption = "&Ferma sequenza" 
ImageIndex = 1 
tmrTimer.Enabled = True 

Else 
cmdSlide.Caption = "&Avvia sequenza" 
tmrTimer.Enabled = False 

End If 

End Sub 
Private Sub Form Load( ) 
imgBmp.Stretch = True 
tmrTimer.Enabled = False 
End Sub 
Private Sub tmrTimer_Timer( ) 
Set imgBmp.Picture = LoadPicture("\pic" + 
Mid(Str(ImageIndex), 2) + ".bmp") 
ImageIndex = ImageIndex Mod 3 + 1 
End Sub 


Questo codice dichiara la variabile ImageIndex di tipo intero e a 
livello di form in modo da conservare una traccia della sequenza 
delle immagini visualizzate quando si richiama la procedura perla 
presentazione sequenziale delle immagini stesse. 


La procedura Form_Load( ) inizializza il form impostando la pro- 
prietà Stretch del controllo Immagine su True e disabilitando, nel 
contempo il controllo del temporizzatore. 


La procedura cmdBmpi _Click( ) risponde a un clic sul pulsante di 
comando Carica immagine 1 caricando l’immagine grafica del 
file PICI.BMP (memorizzata nella cartella radice). Le procedura 
cmdBmp2_Click( )e cmdBmp3_Click() si comportano nello stesso 
modo caricando, rispettivamente, le immagini grafiche dei file 
PIC2.BMP e PIC3.BMP ogni volta che si fa clic sui pulsanti Carica 
immagine 2 e Carica immagine 3. 


La procedura cmdSlide Click( ) risponde al clic sul pulsante Avvia 
sequenza esaminando il contenuto della proprietà Caption del 
pulsante di comando per determinare lo stato della funzione di 
visualizzazione sequenziale temporizzata delle immagini. Quando 
la proprietà Caption del pulsante di comando è impostata su Av - 
via sequenza il gestore di evento esegue le operazioni seguenti. 


+ Impostala proprietà Caption del pulsante di comando su 
Ferma sequenza. 
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+ Assegna il valore 1 alla variabile ImageIndex. 
+ Abilita il controllo del temporizzatore. 


Quando, invece, la proprietà Caption del pulsante di comando è 
impostata su Ferma sequenza il gestore di evento esegue le se- 
guenti operazioni. 


+ Imposta la proprietà Caption del pulsante di comando su 
Avvia sequenza. 


+ Disabilita il controllo del temporizzatore. 


La procedura tmrTimer_Timer( ) risponde all’evento di temporiz- 
zazione eseguendo le seguenti operazioni. 


+ Impostala proprietà Picture del controllo Immagine inse- 
rendovi una nuova immagine grafica. Questa operazione si 
serve della procedura LoadPicture che carica il file .BMP 
corrispondente. Il nome del file .BMP utilizza la stringa del 
valore della variabile ImageIndex. 


+ Aggiorna il valore della variabile InmageIndex assegnando- 
gli il valore successivo (compreso nell’intervallo tra le 3). 


Controllo “PictureBox” 


Un controllo Picture Box è in grado di visualizzare un'immagine 
grafica di tipo bitmap, un'icona, un metafile, un metafile enhanced 
o file di tipo JPEG o GIF Il controllo ritaglia l’immagine all’interno 
del controllo nel caso in cui l’immagine stessa sia di dimensioni 
superiori a quelle definite dalla struttura di contenimento. Si ha 
anche la possibilità di utilizzare il controllo in questione per con- 
trollare un gruppo di pulsanti di opzione e per visualizzare il risul- 
tato dei metodi per la visualizzazione delle immagini grafiche e del 
testo, gestiti dal metodo Print( ). 


Il controllo PictureBox utilizza una quantità superiore di risorse di 
sistema e ridisegna le immagini più lentamente di quanto accade 
con l’uso del controllo Immagine ma, per contro, è in grado di ac- 
cedere a un numero superiore di proprietà, eventi e metodi. 


Vedi anche: in questa parte, la sezione che descrive il controllo 
“Immagine”. 


Nella tabella seguente vengono elencate le proprietà più impor 
tanti del controllo PictureBox mentre gli eventi più rilevanti per lo 
stesso controllo sono Click, Db1Clicke tutti gli eventi correlati al- 
l’uso del mouse. 
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Proprietà: sintassi Scopo Esempio Commento 
Picture: Restituisce o imposta picImage.Picture Carica un'immagine 
oggetto. Picture l'immagine da inserirein = LoadPicture grafica prelevandola 
[= immagine] un controllo PictureBox.  ("io.bmp") dal file io. bmp e la in- 
serisce nel controllo 
piclmage. 
AutoSize: Restituisce o imposta il picImage.AutoSize Imposta la proprietà 
oggetto .AutoSize valore che determina se = True AutoSize perché ri- 
[= booleano] il controllo deve auto- dimensioni l'immagine 
maticamente ridimen- inserita nel controllo 
sionare l'immagine per piclmage. 


visualizzarla completa- 
mente all’interno del 
controllo stesso. 


Il programma che viene ora proposto, il cui risultato finale è ripor- 
tato nella figura, visualizza un form contenente un controllo Pictu- 
reBox e quattro pulsanti.1 primi tre visualizzano, rispettivamente, le 
immagini contenute nei file PIC1.BMP PIC2.BMO e PIC3.BMB men- 
tre il quarto avvia una presentazione sequenziale delle tre immagi- 
ne con un intervallo di visualizzazione temporizzata di 1 secondo 
ciascuna.Lo stesso pulsante viene utilizzato anche per interrompe- 
re la presentazione sequenziale delle tre immagini. Il programma 
utilizza, in quest’ultimo caso, un temporizzatore che memorizza e 
visualizza l’immagine per un secondo prima di visualizzare la suc- 
cessiva. 


=. Immagini con PietureBox 


Carica Carica 
immagine 2 immagine 3 

Avvia 
sequenza 
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La tabella seguente riporta le impostazioni delle proprietà degli 
oggetti del modulo. 


Oggetto Proprietà Impostazione 
Form Name Form! (default) 

Caption Immagini con PictureBox 
PictureBox Name picBmp 
Pulsante di comando Name cmdPic1 

Caption Carica immagine 1 
Pulsante di comando Name cmdPic2 

Caption Carica immagine 2 
Pulsante di comando Name cmdPic3 

Caption Carica immagine 3 
Pulsante di comando Name cmdSlide 

Caption &Avvia sequenza 
Timer Name tmrTimer 

Interval 1000 


Ecco il codice sorgente dell’applicazione. 


Dim PicIndex As Integer 
Private Sub cmdPici Click( ) 
Set picBmp.Picture = LoadPicture("\pic1.bmp") 
End Sub 
Private Sub cmdPic2 Click( ) 
Set picBmp.Picture = LoadPicture("\pic2.bmp") 
End Sub 
Private Sub cmdPic3 Click( ) 
Set picBmp.Picture = LoadPicture("\pic3.bmp") 
End Sub 
Private Sub cmdSlide Click( ) 
If cmdSlide.Caption = "&Avvia sequenza" Then 
ShowTime = True 
cmdSlide.Caption = "&Ferma sequenza" 
PicIndex = 1 


tmrTimer.Enabled = True 
Else 
ShowTime = False 
cmdSlide.Caption = "&Avvia sequenza" 
tmrTimer.Enabled = False 
End If 
End Sub 


Private Sub Form Load( ) 
picBmp.AutoSize = True 
tmrTimer.Enabled = False 

End Sub 
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Private Sub tmrTimer_Timer( ) 

Set picBmp.Picture = LoadPicture("\pic" + 
Mid(Str(PicIndex), 2) + ".bmp") 

PicIndex = PicIndex Mod 3 + 1 
End Sub 


Questo codice dichiara la variabile PicIndex di tipo intero a livel- 
lo di form in modo da conservare una traccia della sequenza delle 
immagini visualizzate quando si richiama la procedura per la pre- 
sentazione sequenziale delle immagini stesse. 


La procedura Form_Load( ) inizializza il form impostando la pro- 
prietà AutoSize del controllo PictureBox su True e disabilitando, 
nel contempo il controllo del temporizzatore. 


La procedura cmdPic1_Click( ) risponde a un clic sul pulsante di 
comando Carica immagine 1 caricando l’immagine grafica del 
file PIC1.BMP (memorizzata nella cartella radice). 


Le procedura cmdPic2_Click( )e cmdPic3 Click( ) si compor 
tano nello stesso modo caricando, rispettivamente, le immagini gra- 
fiche dei file PIC2.BMP e PIC3.BMP ogni volta che si fa clic sui pul- 
santi Carica immagine 2 e Carica immagine 3. 


La procedura cmdSlide_Click( ) risponde al clic sul pulsante Avvia 
sequenza esaminando il contenuto della proprietà Caption del pul- 
sante di comando per determinare lo stato della funzione di visua- 
lizzazione sequenziale temporizzata delle immagini. Quando la 
proprietà Caption del pulsante di comando è impostata su &Avvia 
sequenza il gestore di evento esegue le operazioni seguenti. 


+ Imposta la proprietà Caption del pulsante di comando su 
Ferma sequenza. 


+  Assegnail valore 1 alla variabile PicIndex. 
*+ Abilita il controllo del temporizzatore. 


Quando, invece, la proprietà Caption del pulsante di comando è 
impostata su &Ferma sequenza il gestore di evento esegue le se- 
guenti operazioni. 


+  Impostala proprietà Caption del pulsante di comando su 
Avvia sequenza. 


+ Disabilita il controllo del temporizzatore. 


La procedura tmrTimer_Timer( ) risponde all'evento di temporiz- 
zazione eseguendo le seguenti operazioni. 


+  Impostala proprietà Picture del controllo PictureBox inse- 
rendovi una nuova immagine grafica. Questa operazione si 
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serve della procedura LoadPicture( ) che carica il file .BMP 
corrispondente. Il nome del file .BMP utilizza la stringa del 


valore della variabile ImageIndex. 


+ Aggiornailvalore della variabile PicIndex assegnandogli il 
valore successivo (compreso nell’intervallo tra le 3). 
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Il controllo Forma (Shape) è un controllo di tipo grafico visualizza- 
to sotto forma di rettangolo, quadrato, ellisse, cerchio, rettangolo con 
angoli arrotondati o quadrato con angoli arrotondati. L'uso di que- 
sto controllo consente, quindi, di inserire rapidamente in un form 
uno di questi elementi. 


Proprietà: sintassi 


Shape: 
oggetto .Shape 
[= numero] 


Scopo 


Esempio 


La tabella seguente riporta le proprietà più importanti del control- 
lo Forma mentre gli eventi più rilevanti sono Click, DblClick e 
tutti gli eventi collegati all'uso del mouse. 


Commento 


Restituisce o imposta la 
forma da utilizzare con il 
controllo. 


FillColor: 
oggetto.FillColor 
[= numero colore] 


Restituisce o imposta il 
colore di riempimento 
della forma. 


tipoForma. 


Shape = 0 


Assegna al controllo il 
valore 0 (corrispon- 
dente a un rettangolo). 


tipoForma. 


FillColor 
vbRed 


Imposta la proprietà 
FillColor dell'ogget- 
to disegnato sul rosso. 


FillStyle: 
oggetto.Fillstyle 
[= numero] 


Restituisce o imposta il 
motivo di riempimento 
da applicare all'oggetto 
realizzato con il control- 
lo Forma (vedi la tabella 
successiva). 


tipoForma. 


FillStyle 
vbFSSolid 


Imposta la proprietà 
FillStyle dell'ogget- 
to disegnato su un 
riempimento pieno. 


La tabella seguente riporta i valori ammissibili per la proprietà Shape 
di un oggetto realizzato con il controllo Forma. 


Costante Impostazione Descrizione 
vbShapeRectangle 0 Crea un rettangolo (default) 
vbShapeSquare 1 Crea un quadrato 
vbShapeOval 2 Crea un'ellisse 
vbShapeCircle 3 Crea un cerchio 


continua 


Costante 


vbShapeRoundedRectangle 


vbShapeRoundedSquare 
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Impostazione Descrizione 

4 Crea un rettangolo con an- 
goli arrotondati 

5 Crea un quadrato con an- 


goli arrotondati 


La tabella seguente, invece, riporta i valori ammessi dalla proprietà 
FillStyle del controllo Forma. 


Descrizione 


Applica un riempimento 


Applica un riempimento 
trasparente (default) 


Applica un riempimento 
composto da linee orizzon- 


Applica un riempimento 
composto da linee verticali 


Applica un riempimento 
con linee diagonali verso 


Applica un riempimento 
con linee diagonali verso il 


Applica un riempimento a 


Costante Impostazione 
vbFSSolid 0 

pieno 
vbFSTransparent 1 
vbHorizontalLine 2 

tali 
vbVerticallLine 3 
vbUpwardDiagonal 4 

l'alto 
vbDowrwardDiagonal 5 

basso 
vbCross 6 

croci 
vbDiagonalCross 7 


Applica un riempimento a 
croci diagonali 


L'esempio di programma che si propone utilizza il controllo Forma 
per generare un form simile a quello della figura seguente. Il form 
generato contiene un controllo Forma e tre pulsanti. I primi due 
visualizzano la forma successiva e precedente (le forme sono un 
rettangolo, un quadrato, un’ellisse,un cerchio, un rettangolo con an- 
goli arrotondati e un quadrato con angoli arrotondati).Il terzo pul- 
sante, invece, avvia una procedura di visualizzazione sequenziale 
temporizzata delle forme create. 
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=, Forme : (-_J0]x| 


Forma Avvia 
precedente sequenza 


L'applicazione si serve di un controllo temporizzatore per visualiz- 
zare una forma per un secondo, quella successiva per un altro se- 
condo, e così via. 


La tabella seguente riporta le impostazioni delle proprietà degli 
oggetti del modulo. 


Oggetto Proprietà Impostazione 
Form Name Form1 (default) 

Caption Forme 
Controllo “Forma” Name shpBody 
Pulsante comando Name cmdNext 

Caption Forma &successiva 
Pulsante comando Name cmdPrev 

Caption Forma &precedente 
Pulsante comando Name cmdSlide 

Caption &Avvia sequenza 
Controllo temporizzatore Name tmrTimer 

Interval 1000 


Il codice sorgente dell’applicazione è il seguente. 


DimFillColorArr(0 To 5) As Long 
Private Sub cmdNext_Click( ) 
shpBody.Shape = (shpBody.Shape + 1) Mod 6 
shpBody.FillColor = FillColorArr(shpBody.Shape) 
End Sub 
Private Sub cmdPrev_Click( ) 
If shpBody.Shape > 0 Then 
shpBody .Shape = shpBody - 1 
Else 
shpBody.Shape = 5 
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End If 

shpBody.FillColor = FillColorArr(shpBody.Shape) 
End. Sub 
Private Sub cmdSlide Click( ) 

If cmdSlide.Caption = "&Avvia sequenza" Then 
cmdSlide.Caption = "&Ferma sequenza" 
shpBody.Shape = 0 
tmrTimer.Enabled 

Else 
cmdSlice.Caption = "&Avvia sequenza" 
tmrTimer.Enabled = False 

End If 

End Sub 
Private Sub Form Load( ) 

tmrTimer.Enabled = False 

shpBody.SillStyle = vbFSTransparent 

shpBody.Shape = 0 

FillColorArr(0) = vbCyan 

FillColorArr(1) = vbMagenta 

FillColorArr(2) = vbRed 

FillColorArr(3) = vbBlue 

FillColorArr(4) = vbYellow 

FillColorArr(5) = vbGreen 

shpBody.FillColor = FillColorArr(shpBody.Shape) 

End Sub 
Private Sub tmrTimer_Timer( ) 
shpBody.Shape = (shpBody.Shape + 1) Mod 6 
shpBody.FillColor = FillColorArr(shpBody.Shape) 
End Sub 


True 


Il 


Questo codice dichiara la matrice FillColorArr( ) di tipo long a 
livello di form, per memorizzarvi i colori di riempimento delle va- 
rie forme che verranno utilizzate dal programma. 


La procedura Form_Load( ) inizializza il modulo eseguendo le 
operazioni seguenti. 


+ Disabilita il controllo di temporizzazione. 


+ Imposta la proprietà Fillstyle del controllo Forma asse- 
gnandogli il valore vbFSSolid per generare un riempimen- 
to pieno. 


+ Imposta la proprietà Shape del controllo Forma impostan- 
dola a 0.Questo valore genera un rettangolo. 


+  Assegnaagli elementi della matrice FillColorArr( ) le co- 
stanti dei colori Visual Basic. 


+ Impostala proprietà Fil1Color del controllo Formaal colore 
specificato dall’elemento 0 della matrice FillColorArr( ). 
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La procedura cmdNext_Click( ) risponde al clic sul pulsante For - 
ma successiva selezionando la forma successiva incrementando 
il valore delia proprietà Shape del controllo Forma. Il gestore di 
evento si serve dell'operatore Mod per assicurare che la proprietà 
Shape sia compresa nell'intervallo che va da 0 a 5. Viene inoltre 
assegnato un nuovo valore alla proprietà FillColor del controllo 
Forma (questo nuovo valore utilizza la matrice FillColorArr( ) e, 
per definire l’indice della matrice, il valore della proprietà Shape). 


La procedura cmdPrev_Click( ) risponde al clic sul pulsante For - 
ma precedente selezionando la forma precedente, diminuendo il 
valore della proprietà Shape del controllo Forma.L'evento utilizza 
un enunciato If per assicurare che la proprietà Shape venga con- 
tenuta nell’intervallo di valori compreso tra 0 e 5.Il gestore di even- 
to assegna anche un valore alla proprietà FillColor del controllo 
Forma (questo nuovo valore utilizza la matrice FillColorArr( ) e, 
come indice per la matrice, il valore della proprietà Shape). 


La procedura cmdSlide_Click( ) risponde al clic sul pulsante Avvia 
sequenza esaminando il valore della proprietà Caption del pul- 
sante di comando per determinare lo stato della funzione di visua- 
lizzazione sequenziale temporizzata. Quando la proprietà Caption 
del pulsante di comando contiene il valore &Avvia sequenza il 
gestore di evento esegue le operazioni seguenti. 


+ Imposta la proprietà Caption del pulsante di comando su 
&Ferma sequenza. 


+ Assegna Il valore 0 alla proprietà Shape del controllo For- 
ma. 


+ Abilita il controllo di temporizzazione. 


Quando la proprietà Caption contiene il valore &Ferma sequenza, 
il gestore di evento esegue le seguenti operazioni. 


*+ Imposta la proprietà Caption su &Avvia sequenza. 
+ Disabilita il controllo del temporizzatore. 


La procedura tmrTimer_Timer( ) risponde all'evento di temporiz- 
zazione eseguendo le operazioni seguenti. 


+ Selezionala forma successiva incrementando il valore della 
proprietà Shape del controllo Forma.Il gestore di evento si 
serve, per questa operazione, dell'operatore Mod per garanti- 
re che il valore della proprietà Shape sia compreso nell’in- 
tervallo tra 0 e 5. 


*+ Assegna un nuovo valore alla proprietà FillColor del con- 
trollo Forma e tale nuovo valore utilizza la matrice Fi11Co - 
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lorArr() e,per definire l'indice della matrice stessa, il valo- 
re della proprietà Shape. 
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Il controllo Temporizzatore (Timer) è un controllo di tipo non visi- 
bile che è in grado di eseguire del codice a intervalli di tempo re- 
golari servendosi, per questa operazione, dell'evento Timer.Il con- 
trollo di temporizzazione si rivela particolarmente utile per l’ese- 
cuzione di operazioni in background.La proprietà Enabled di que- 
sto controllo permette di attivarne o disattivarne l'operatività. 


Quando la proprietà Enabled è impostata su True, la proprietà In- 
terval specifica l'intervallo temporale nel quale il controllo di 
temporizzazione deve generare un successivo evento Timer. 


Nota. Visual Basic 6 non presenta, virtualmente, alcuna limitazione 
per quanto riguarda il numero di controlli di temporizzazione che 
si possono inserire in un programma. 


La tabella seguente riporta le proprietà più importanti che sì posso- 
no associare a un controllo Temporizzatore; l'evento più rilevante 
è invece, Timer. 


Proprietà: sintassi Scopo Esempio Commento 
Enabled: Restituisce o imposta lo tmrTick. Disabilita il controllo 
oggetto.Enabled stato di abilitazione o di- Enabled = False di temporizzazione 
[= booleano] sabilitazione del control- tmrTick. 
lo Temporizzatore. 
Interval: Restituisce o imposta tmrTick. Imposta l'intervallo di 
oggetto. Interval l'intervallo di tempo Interval = 2000 temporizzazione del 
[= millisecondi] (espresso in millisecon- controllo tmrTick a 2 
di) entro il quale deve secondi. 


essere avviato un suc- 
cessivo evento Timer. 


L'esempio che viene ora proposto si serve di un controllo di tem- 
porizzazione che genera un risultato simile a quello di figura se- 
guente. In questo esempio viene visualizzato un form contenente 
un’etichetta e il pulsante di comando Avvia. Quando l’utente fa 
clic sul pulsante di comando, il programma visualizza, ogni due se- 
condi, una serie di numeri casuali. Quando la temporizzazione è 
attiva, il pulsante di comando Avvia viene convertito in Ferma. Se 
si fa clic su questa versione del pulsante di comando, sì interrom- 
perà la generazione di numeri casuali. 
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=, Demo Temporizzatore [Dx] 


T6I 


La tabella seguente riporta le impostazioni delle proprietà degli 
oggetti che fanno parte del form. 


Oggetto Proprietà Impostazione 
Form. Name Form1 (default) 
Caption Demo Temporizzatore 
Controllo temporizzatore Name tmrTimer 
Interval 2000 
Pulsante comando Name cmdStart 
Caption &Avvia 
Etichetta Name IbINumber 


Ecco il codice sorgente che genera il risultato finale desiderato. 


Option Explicit 
Private Sub cmdStart_Click( ) 

If cmdStart.Caption = "&Avvia" Then 
cmdStart.Caption = "&Ferma" 
tmrTimer.Enabled = True 

Else 
cmdStart.Caption = "&Avvia" 
tmrTimer.Enabled = False 

End If 

End SubPrivate Sub Form _Load( ) 
tmrTimer.Enabled = False 
lblNumber.Caption = "0" 
òlblNumber.FontSize = 24 
End Sub 
Private Sub tmrTimer_Timer( ) 

lblNumber.Caption = Format(1000 * Rnd(1), "##" 
End Sub 


La procedura Form_Load( ) inizializza il form disabilitando il con- 
trollo di temporizzazione, svuotando il contenuto dell’etichetta e 
impostando il tipo di carattere della stessa a 24 punti. 
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La procedura cmdStart_Click( ) risponde al clic sul pulsante di 
comando Avvia esaminando il valore della proprietà Caption del 
pulsante di comando. Quando questa proprietà è impostata su &Av - 
via, il gestore di evento esegue le seguenti operazioni. 


+ Imposta la proprietà Caption del pulsante di comando su 
&Ferma. 


+ Abilita il controllo del temporizzatore. 


Quando la proprietà Caption del pulsante di comando è imposta- 
ta su &Ferma, il gestore di evento esegue le operazioni seguenti. 


+ Imposta la proprietà Caption del pulsante di comando su 
&Avvia. 


+ Disabilita il controllo di temporizzazione. 


La procedura tmrTimer_Timer( ) risponde all'evento Timer vi 
sualizzando un numero casuale all’interno dell’etichetta del form. 


Gestione degli errori 


La gestione degli errori e la presa di decisioni sono due lati 
della programmazione che rendono piacevole la progetta- 
zione delle applicazioni e che consentono di dare loro una 
certa personalità.A conferma di ciò si pensi che ogni volta 
che si scrive un programma, se (If) questo non ne vuole 
sapere di funzionare, allora (Then) è necessario andare alla 
ricerca di possibili errori nel suo codice sorgente. 


Argomenti trattati 


v Gestione degli errori che possono verificarsi 
quando si esegue il programma 


v Come sopravvivere quando si presenta un 
errore 


v Far prendere al programma le decisioni in 
modo che funzioni correttamente 
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Oggetto Err 


L'oggetto Err memorizza tutte le informazioni relative a errori che 
dovessero verificarsi nel corso dell'esecuzione di un’applicazione. 
Le proprietà dell'oggetto Err vengono impostate da un generatore 
di errori che potrebbe corrispondere a Visual Basic stesso, a un 
oggetto oppure a un enunciato di programma. Quando si verifica 
un errore di esecuzione, le proprietà dell'oggetto Err memorizze- 
ranno le informazioni che consentiranno al programmatore di ge- 
stire l'errore che si è verificato. i 


Vedi anche: in questa parte, la sezione che descrive l’enunciato 
“Resume”. 


Le proprietà di un oggetto Err vengono reimpostate automatica- 
mente a zero o a una stringa vuota ("") dopo ogni esecuzione di 
un enunciato Resume o Error e dopo ogni enunciato Exit Sub, 
Exit Function o Exit Property contenenti una routine per la 
gestione degli errori. Usare il metodo Raise( ) per generare errori 
di esecuzione in un modulo di classe.L'uso e la sintassi del metodo 
Raise( ) all’interno del codice dipendono dal tipo e quantità di 
informazioni che si desiderano ottenere su un errore. 


La sintassi generale del metodo Raise( ) è la seguente. 


Err.Raise numero, origine, descrizione, fileGuida, 
contestoGuida 


Gli argomenti del metodo Raise( ) corrispondono alle proprietà 
dell’oggetto Err,schematizzate nella tabella seguente. 


Proprietà Valore 


Number Valore che identifica iltipo di errore. Può corrispondere a 
un numero di errore (compreso tra 0 e 65535, come de- 
scritto nella tabella seguente). 


Source Nome del progetto Visual Basic nel quale si è verificato 
l'errore. 
Description Stringa corrispondente all'errore con la specifica del valo- 


re della proprietà Number (sempre che questo sia disponi- 
bile). In caso contrario la proprietà Description con- 
tiene la stringa "Errore definito dall'applicazio- 
ne o dall'oggetto". 


HelpFile Il percorso completo e il nome del file di guida di Visual 
Basic. 


HelpContext L'identificativo del file di guida contestuale di Visual Basic 
corrispondente al valore della proprietà Number. 
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L'oggetto Err sostituisce l’enunciato Error delle versioni prece- 
denti di Visual Basic.Sebbene questo enunciato sia ancora disponi- 
bile anche nella versione 6,si consiglia di non utilizzarlo e di prefe- 
rire l'oggetto Err . 


La tabella seguente riporta l’elenco dei più comuni errori che si 
verificano nel corso dell'esecuzione di un’applicazione. 


Codice Messaggio emesso 

5 Chiamata di procedura non valida o argomenti non validi. 
6 Errore di overflow. 

7 Memoria esaurita. 

9 Indice non compreso nell'intervallo. 

10 Questa matrice è di dimensione fissa o temporaneamente bloccata. 
11 Divisione per zero. 

13 Tipo non concordante. 

14 Spazio stringa esaurito. 

16 Espressione troppo complessa. 

20 Resume senza error. 

35 Sub, Function, Property non definita. 

52 Nome o numero di file non valido. 

53 File non trovato. 

54 Modalità file non valida. 

55 File già aperto. 

57 Errore 1/0 di periferica. 

58 File già esistente. 

59 Lunghezza del record non valida. 

61 Disco pieno. 

62 Input oltre la fine del file. 

63 Numero di record non valido. 

67 Troppi file. 

71 Disco non pronto. 

74 Impossibile rinominare con unità diversa. 
75 Errore di accesso al percorso/file. 

76 Impossibile trovare il percorso 


continua 
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Codice Messaggio emesso 
92 Ciclo For non inizializzato. 
93 Stringa campione non valida. 
31036 Errore di salvataggio su File. 
31037 Errore di caricamento dal file. 


sem Pro 


Quello che segue è un esempio di come usare l'oggetto Err. 


Private Sub Form Load( ) 
Dim X As Integer 
X= 0 
On Error GoTo mioErrore 
If X< 1 Or X > 9 Then 
Err.Raise vdObjectError + 111, , "Il numero è fuori 
dall'intervallo" 
End If 
Debug .Print "OK!" 
ResumeHere: 
Exit Sub 
mioErrore: 
If Err.Number = vbObjecError + 111) Then 
Debug.Print Err.Description 


Else 
Debug.Print "Errore sconosciuto!" 
End If 
Resume resumeHere 
End Sub 


Questo esempio visualizza, nella finestra Immediata, la stringa Il 
numero è fuori dall'intervallo;la procedura Form_Load( ) 
dichiara la variabile X di tipo Integer e le assegna il valore 0. La 
routine quindi imposta un gestore di errore servendosi dell’enun- 
ciato On Error.A questo punto viene introdotto un enunciato If 
per determinare se il valore contenuto nella variabile X è al di fuori 
dell’intervallo tra 1 e 9. Poiché questa condizione risulta vera (la 
variabile X_ contiene il valore 0) la procedura utilizza il codice di 
errore personalizzato 111 (usando il valore vb0bjecError + 111) 
e gli associa il messaggio Il numero è fuori dall'intervallo. 
Questo errore passa l'elaborazione a un gestore di errore posto dopo 
l'etichetta mioErrore. Il gestore si serve di un enunciato If per 
determinare se il numero di errore è pari a vbObjectError + 111; 
in caso affermativo, il gestore di errore visualizza nella finestra 
Immediata il messaggio servendosi della proprietà Description del- 
l'oggetto Err. In caso contrario, il gestore visualizza il messaggio 
Errore sconosciuto!.Il gestore di errore esegue poi un enunciato 
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Resume che riporta l'esecuzione del programma all’etichetta Re - 
sumeHere. Questa etichetta appare immediatamente prima del- 
l’enunciato Exit Sub. Dopo aver scritto questo codice, non verrà 
mai eseguito l’enunciato Debug. Print "0K!" poiché il codice stes- 
so genera sempre un errore. 


Enunciato On Error 


ENTO 
KS 
$ 
d 
D 
UL 


Visual Basic consente alle routine di gestire gli errori di esecuzio- 
ne; si ha anche la possibilità di definire la posizione della routine 
all’interno di una procedura servendosi, per questa operazione, 
dell’enunciato On Error. 


La sintassi generale dell’enunciato On Error è la seguente. 


On Error GoTo [etichetta | lineaDiCodice] 


La sintassi On Error GoTo lineaDiCodice consente alla routine 
per la gestione degli errori di avviare l'esecuzione a partire dall’ar- 
gomento etichetta o lineaDiCodice.L'argomento etichetta 0 
lineaDiCodice può corrispondere a una qualsiasi linea di codice 
contenente un’etichetta oppure al numero della linea di codice 
stessa. Se si verifica un errore di esecuzione, il controllo viene tra- 
sferito automaticamente all’etichetta o alla linea di codice indica- 
ta e viene avviato il gestore dell’errore localizzato in corrisponden- 
za dell’etichetta o del numero di linea di codice. L'etichetta specifi- 
cata o il numero di linea deve essere nella medesima procedura 
contenente l’enunciato On Error:in caso contrario, al momento 
della compilazione del codice sorgente, verrà emesso un messag- 
gio di errore. 


On Error Resume Next 


La sintassi On Error Resume Next specifica che quando si verifica 
un errore di esecuzione il controllo verrà trasferito all’enunciato 
immediatamente successivo a quello che ha generato l'errore con- 
sentendo la continuazione dell’esecuzione dell’applicazione. Si 
consiglia di usare questa sintassi,in sostituzione di On Error GoTo, 
quando si accede direttamente agli oggetti. 


Si utilizzi la sintassi On Error Resume Next in tutti quei casi in cui 
sia possibile ignorare l’errore che si è verificato. Per esempio, se, in 
un programma, si volesse eliminare un file di backup prima di cre- 
arne uno nuovo, si utilizzi l’enunciato On Error Resume Next.Se 
l'evento determinato dall’enunciato di eliminazione di un file di 
backup genera un errore (poiché il file di backup non esiste), il 
programma ignorerà semplicemente l’errore e procederà con la 
linea di codice successiva. 


DIARI 


160 


Enunciato On Error 


«SEM Py, 


On Error GoTo 0 


La sintassi On Error GoTo 0 non fa altro che disabilitare qualsiasi 
gestore di errore presente nella procedura, 


Si consiglia di scrivere il codice degli enunciati per la gestione de- 
gli errori alla fine della procedura; inoltre, prima dell’enunciato che 
gestisce il primo errore, si consiglia di inserire un enunciato Exit 
Sub,Exit Function o Exit Property. 


Per maggiori informazioni sulla gestione degli errori, si consulti il 
libro Visual Basic 6 For Dummies di Wallace Wang (Apogeo, 1998). 


Quello che segue è un esempio di come usare i vari enunciati per 
la gestione degli errori. 


Private Sub Form Load( ) 
Dim X As Double 
Dim Y As Double 
Dim Z As Double 


On Error GoTo DivisionePerZero 
X= 1 

Y= 0 

Z=X/Y 

On Error GoTo 0 

Debug.Print X; "/"; Y; "="; Z 
Exit Sub 


DivisionePerZero: 
Debug.Print "Errore! Divisione per zero" 
Y= 2 
Resume 

End Sub 


Questo esempio genera la visualizzazione, nella finestra Immediata 
dei seguenti messaggi: 


Errore! Divisione per zero 
1/2= 0.5 


La procedura Form_Load( ) dichiara le variabili X, Y e Z di tipo 
Double e inizializza le prime due utilizzando, rispettivamente, i va- 
lori 1 e 0.La procedura imposta poi un gestore di errore servendosi 
dell'enunciato On Error GoTo DivisionePerzero.In seguito vie- 
ne eseguita la divisione di X_ per Y e il risultato ottenuto viene me- 
morizzato nella variabile z. Questo enunciato genera un errore di 
divisione per zero, trasferendo il controllo all’etichetta Divisione - 
PerZero:. 
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Il codice posto dopo l’etichetta DivisionePerZero: assegna il va- 
lore 2 alla variabile Y e, quindi, richiama l’enunciato Resume. Que- 
sto enunciato ripete l'esecuzione del comando che ha generato 
l’errore (Z - X / Y). Questa volta, poiché la variabile Y contiene il 
valore 2,l’enunciato di assegnamento viene eseguito senza genera- 
re alcun tipo di errore. La procedura, quindi, disattiva il gestore di 
errore servendosi dell’enunciato On Error GoTo 0 e visualizza i 
valori delle variabili all’interno della finestra Immediata uscendo 
infine dalla routine tramite l'esecuzione dell’enunciato Exit Sub. 
La presenza di quest’ultimo enunciato è necessaria per evitare che 
la procedura acceda di nuovo al gestore degli errori. 


Enunciato If-Then Else 


L'enunciato If -Then Else consente di prendere delle decisioni in 
base alla presenza di valori logici o di espressioni di tipo booleano. 


Visual Basic prevede due sintassi principali per l’enunciato If -Then 
Else e la prima è la seguente. 


If condizione Then [enunciati] [Else enunciatiE1se] 


In questa forma, l’enunciato If -Then Else inizia con la parola chiave 
If seguita immediatamente dopo dalle condizioni di verifica. La 
parola chiave Then viene posta alla fine delle condizioni da verifi- 
care e, di solito, viene seguita da uno o più enunciati (separati tra 
loro da due punti [:]). Il programma, se la condizione verificata 
risulta vera, esegue l’enunciato dopo la clausola Then. La clausola 
facoltativa Else può essere utilizzata per offrire uno o più enuncia- 
ti che dovranno essere eseguiti quando le condizioni verificate ri- 
sultano false. 


La seconda forma dell’enunciato If -Then Else è la seguente. 


If condizione Then 
[ enunciati] 
[  ElseIf condizione Then 
[condizioniElseIf] 
[ Else 
condizioniElse]] 
End If 


La sintassi utilizza blocchi di enunciati che sono più facilmente 
leggibili rispetto a quelli indicati nella prima sintassi; inoltre, questa 
sintassi prevede clausole Else -1If il cui scopo è quello di verificare 
condizioni aggiuntive. Queste clausole trasformano l’enunciato If - 
Then Else in un enunciato che è in grado di prendere decisioni in 
base ad alternative multiple. In questo caso, il programma esamina 
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ogni condizione fino a quando non reperirà quella che risulta vera 
(ed esegue gli enunciati della clausola Then posti dopo la condi- 
zione vera) oppure esegue la clausola Else (che agisce come un 
elemento di raccolta di tutte le clausole). 


dere delle decisioni, si consulti il libro Visual Basic 6 For Dummies 
di Wallace Wang (Apogeo, 1998). 


Quello che segue è un esempio pratico di un enunciato If -Then 
Else. 


DA Per maggiori informazioni circa l'utilizzo dell’enunciato If per pren- 
Na 
DO) 
PL 


Private Sub Form Load( ) 
Dim X As Long 
X = 1000 * Rnd( ) +1 
If X < 10 Then 
Debug.Print "1 cifra" 
ElseIf X < 100 Then 
Debug.Print "2 cifre" 
Else 
Debug.print "3 cifre" 
End If 
End Sub 


Questo esempio potrebbe visualizzare, nella finestra Immediata, il 
seguente risultato: 


3 cifre 


La procedura Form_Load( ) dichiara la variabile locale X di tipo 
Long e le assegna un valore casuale, compreso tra 1 e 1000. La 
procedura utilizza un enunciato If per determinare di quante ci- 
fre è composto il valore della variabile x.La clausola If esamina 
la condizione X < 10 e quindi visualizza, nella finestra Immediata, 
la stringa 1 cifra solo nel caso in cui la condizione verificata 
risulti vera.La clausola ElseIf esamina la condizione X < 100 e, 
se la condizione è vera, sempre nella finestra Immediata, visualiz- 
za la stringa 2 cifre.La clausola finale Else visualizza nella fine- 
stra Immediata la stringa 3 cifre.Poiché la possibilità di generare 
un numero casuale superiore a 99 è relativamente alta, questo 
codice, nella maggior parte dei casi, eseguirà l’enunciato associa- 
to alla clausola Else dopo aver esaminato il contenuto delle due 
condizioni precedenti. 


Enunciato Resume 


L’enunciato Resume indica al programma come recuperare l’esecu- 
zione di un’elaborazione al termine di una routine per la gestione 
degli errori. 
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Vedi anche: in questa parte, la sezione che descrive l'oggetto Err. 


La sintassi generale dell’enunciato Resume è la seguente. 


Resume [0] 


La sintassi Resume fa sì che l'esecuzione del programma venga 
ripresa dall’enunciato che ha generato l'errore, sempre che l'errore 
si sia verificato nella stessa procedura contenente il gestore di erro- 
re. Se l'errore si verifica in una procedura richiamata, l'esecuzione 
del programma verrà ripresa in corrispondenza dell’ultimo enun- 
ciato che ha richiamato la procedura che contiene la routine perla 
gestione degli errori.L'argomento 0 è facoltativo ed è un retaggio di 
GWBASIC e di BASIC che richiedevano l'indicazione di un numero 
di linea di codice. Il suo inserimento è stato determinato da una 
necessità di compatibilità con queste versioni precedenti. 


Resume Next 


La sintassi Resume Next fa sì che l'esecuzione del programma ven- 
ga ripresa in corrispondenza dell’enunciato immediatamente suc- 
cessivo dell’enunciato che ha generato l'errore, sempre che l’erro- 
re si sia verificato nella stessa procedura contenente il gestore del- 
l’errore.Se l’errore si è verificato in una procedura richiamata, l’ese- 
cuzione riprenderà con l’enunciato immediatamente successivo 
quello che ha chiamato l’ultima procedura contenente la routine 
per la gestione degli errori (oppure l’enunciato On Error Resume 
Next). 


Resume numeroLinea 


La sintassi Resume numeroLinea fa sì che l'esecuzione dell’appli- 
cazione venga ripresa in corrispondenza dell'etichetta o del nume- 
ro della linea di codice e deve essere contenuta nella stessa proce- 
dura contenente il gestore di errore. 


SENZION,, 
L'uso dell’enunciato Resume al di fuori di un gestore di errore cau- 
sa un errore di esecuzione. 
sEMA,, , È î s È 
rag Ilcodice seguente è un esempio dell’uso delle tre forme dell’enun- 
vi ciato Resume. 


Private Sub Form Load( ) 
Dim X As Double 
Dim Y As Double 
Dim Z As Double 


On Error GoTo DivisionePerZero 
x= 

Y= 0 

Z= XJ Y 
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On Error GoTo 0Q 


Debug.Print X; "/"; Y; "="; Z 
On Error Resume next 

Z=X/0 

Z=1 

Debug.Print "Z ="; Z 


On Error GoTo Err2 
Z=X/0 
ResumeErr2Here: 

Z= 10 

Debug.Print "Z ="; Z 
Exit Sub 


DivisionePerZero: 

Debug.Print "Errore! Divisione per zero" 
Y= 2 

Resume 


Err2: 
ResumeErr2Here 
End Sub 


Questo esempio genera il seguente risultato nella finestra Imme- 
diata. 


Errore! Divisione per zero 


1/2 =0.5 
z=1 
A 


La procedura Form_Load( ) contiene i seguenti enunciati per la 
generazione di errori e i seguenti enunciati Resume. 


+ La prima serie di enunciati che dividono la variabile Y (il 
cui valore è pari a 0) richiama il gestore di errore dell’eti- 
chetta DivisionePerZero:. Questo gestore di errore asse- 
gna alla variabile Y il valore 2 e quindi esegue l’enunciato 
Resume. Questo enunciato indica al programma di riprende- 
re l'esecuzione in corrispondenza della linea che ha gene- 
rato l'errore. 


+ La seconda serie di enunciati che segue la divisione per 0 
utilizza l’enunciato On Error Resume Next che indica la 
ripresa dell'esecuzione del programma in corrispondenza 
dell'’enunciato Z = 1. 


+ Laterzaserie di enunciati che eseguono una divisione per 0 
si serve dell’enunciato On Error GoTo Err2 che fa sì che 


Enunciato Select Case 165 


l'esecuzione del programma venga ripresa in corrisponden- 
za dell’etichetta Err2:.Questo gestore contiene l’enunciato 
ResumeErr2Here il cui scopo è quello di trasferire il control- 
lo per l'esecuzione del programma in corrispondenza del- i 
l'etichetta ResumeErr2Here:.L'enunciato posto dopo l'eti- si 
chetta assegna alla variabile Z il valore 10. . 


Enunciato Select Case 


L’enunciato Select Case è un sistema molto versatile per prende- za 
re una decisione analizzando diverse alternative. Sebbene l’enun- | 
ciato Select Case sia molto simile all’enunciato If -Else conte- | 
nente clausole ElseIf,è molto più flessibile. | 


La sintassi generale dell’enunciato Select Case è la seguente. 


Select Case verificaEspressione 
[ Case elencoEspressioni 
[enunciati]]... 
[ Case Else 
[enunciatiCaseElse]] 
End Select 


verificaEspressione corrisponde a un'espressione di tipo nu- 
merico o di tipo stringa.elencoEspressioni corrisponde a un elen- 
co di valori separati da virgole indicati dopo la clausola Case.L'elen- | 
co dei valori contiene una o più delle forme seguenti. 


espressione | 
espressione To espressione 
[Is] operatoreConfronto espressione 


La parola chiave To specifica un intervallo di valori e quando si 
utilizza questa parola chiave, prima di essa, dovrebbe comparire il 
valore minore. Si utilizza, invece, la parola chiave Is in associazio- 
ne con operatori di confronto (con la sola eccezione di Is e Like) | 
per specificare un intervallo di valori. Enunciati rappresenta uno o | 
più enunciati eseguiti quando verificaEspressione trova una cor- | I 
rispondenza con una qualsiasi parte di elencoEspressioni.enun- (Ea 
ciatiCaseElse rappresenta uno o più enunciati eseguiti se veri - 
ficaEspressione non trova una corrispondenza con una qualsia- 

si delle clausole Case. 


Quando verificaEspressione trova una corrispondenza con una 
qualsiasi espressione Case elencoEspressioni, gli enunciati che 
seguono la clausola Case vengono eseguiti fino alla successiva clau- 
sola Case o, nel caso in cui si tratti dell’ultima clausola, fino a End 
Select. 
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Per maggiori informazioni sull’enunciato Select Case, si consulti 
il libro Visual Basic 6 For Dummies di Wallace Wang (Apogeo, 1998). 


Quello che segue è un esempio di come usare l’enunciato Select 
Case. 


Private Sub Form Load( ) 
Dim X As Long 
X = 1990 * Rnd( ) +1 
Select Case X 
Case Is < 10 
Debug.Print "1 cifra" 
Case 10 To 99 
Debug.Print "2 cifre" 
Case Else 
Debug.Print "3 cifre" 
End Select 
End Sub 


Questo esempio visualizza, di solito, nella finestra Immediata, la se- 
guente stringa: 


3 cifre 


La procedura Form_Load( ) dichiara la variabile X di tipo Long e 
le assegna un valore casuale, compreso tra 1 e 1000. La procedura 
sì serve dell’enunciato Select Case per determinare di quante ci- 
fre è composto il valore della variabile x.La clausola Select Case 
esamina il valore della variabile X.La prima clausola Case contiene 
Is < 10 e,quando X sarà inferiore a 10, nella finestra Immediata 
verrà visualizzata la stringa 1 cifra. 


La seconda clausola Case contiene 10 To 99 e genera, sempre 
nella finestra IMmediata la visualizzazione della stringa 2 cifre. 
Infine, Case Else visualizza la stringa 3 cifre.Poiché nella mag- 
gior parte dei casi la generazione di un numero casuale sarà supe- 
riore a 99,il codice eseguirà quasi sempre l’enunciato Case Else 
dopo aver esaminato le prime due condizioni e, quindi, visualizze- 
rà nella finestra Immediata la stringa 3 cifre. 


Funzioni e Procedure 


Le procedure e le funzioni si comportano come minipro- 
grammi inseriti in un programma più generale.Se per esem- 
pio si volessero acquistare 15 arance in un negozio che pre- 
vede di distribuirle solo in confezioni da 3, per raggiungere 
il risultato desiderato, si dovrebbe eseguire mentalmente il 
calcolo seguente:“5 confezioni da 3 arance danno come 
risultato 15 arance”.Questo banale processo mentale non è 
altro che ciò che viene eseguito da una procedura o da 
una funzione all’interno del programma nel quale sono state 
inserite. 


Argomenti trattati 


v Uso delle procedure per eseguire compiti 
nel contesto di programmi più generali 


v Uscita dalle procedure 


v Comprensione e uso di funzioni per calcolare 
e restituire valori all’interno di un programma 


v Uscita dalle funzioni 
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Enunciato Exit Function 


L'enunciato Exit Function consente di uscire immediatamente 
dalla procedura Function corrispondente. L'esecuzione del pro- 
gramma riprende con l’enunciato immediatamente successivo quel- 
lo che ha richiamato la procedura Function. 


La sintassi generale dell’enunciato Exit Function è la seguente. 


Exit Function 


L'enunciato prevede due tipi fondamentali di utilizzo. 


+  Presenzain una procedura Function prima di un enuncia- 
to perla gestione degli errori della procedura stessa. Questo 
tipo di utilizzo evita che il programma esegua enunciati di 
gestione degli errori quando non se ne verifica alcuno. 


*+ Inserimento all’interno di un enunciato If che esamina le 
condizioni per determinare se è necessario o meno uscire 
dalla procedura Function. 


Quello che segue è un esempio di come sia possibile usare l’enun- 
ciato Exit Function all’interno di una procedura Function con- 
tenente elementi per la gestione degli errori. 


Function DivideInts(X As Integer, Y As Integer) As Integer 
Dim Z As Integer 
On Error GoTo ZeroDivide ' attiva il gestore di errore 
Z=X/Y 
On Error GoTo 0 ' disattiva il gestore di errore 
DivideInts = Z 
' esce dalla funzione 
Exit Function 
' inizio del gestore di errore 
ZeroDivide: 
Y=1 
Resume 
End Function 


Questo esempio definisce la funzione DivideInts( ) che restitui- 
sce il risultato della divisione dei valori delle variabili X e Y di tipo 
intero. La funzione attiva un gestore di errore prima di dividere que- 
sti argomenti e, quindi, lo disattiva dopo aver effettuato la divisione. 
La funzione imposta il valore restituito come il risultato della divi- 
sione e richiama quindi l’enunciato Exit Function per uscire dal- 
la funzione. Gli enunciati che seguono Exit Function sono dei 
gestori di errore che iniziano immediatamente dopo l’etichetta 
ZeroDivide.. 
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Senza l’enunciato Exit Function,quando si richiama la funzione 
DivideInts( ),verrebbe presentato un errore di esecuzione. 


Quello che segue è un esempio dell'uso di Exit Function all’inter- 
no di una procedura Function contenente un enunciato If. 


Function DivideNums(X As Integer, Y As Integer) As Integer 
Dim Z As Integer 
DivideNums = @ 
If Y= @® Then Exit Function 
Z=X/Y 
DivideNums = Z 
End Function 


Questo esempio utilizza la funzione DivideNums( ) che restituisce 
il risultato della divisione dei suoi argomenti X e Y di tipo intero. La 
funzione assegna il valore restituito di default 0 e quindi utilizza un 
enunciato If per determinare se il valore dell'argomento Y è pari a 
0. Quando questa condizione risulta vera, il programma esegue 
l'enunciato Exit Function per uscire dalla funzione. In caso con- 
trario la funzione divide gli argomenti, ne memorizza il risultato 
nella variabile Z e, quindi, utilizza il valore di tale variabile come 
valore restituito. 


Enunciato Exit Sub 


L'enunciato Exit Sub consente di uscire immediatamente dalla 
procedura Sub corrispondente.L'esecuzione del programma ripren- 
de con l’enunciato che viene immediatamente dopo l’enunciato 
che ha richiamato la procedura Sub. 


La sintassi generale dell’enunciato Exit Sub è la seguente. 


Exit Sub 


Vi sono due usi generali dell’enunciato Exit Sub. 


+ L'enunciato Exit Sub compare in una procedura Sub pri- 
ma di un enunciato per la gestione degli errori contenuto 
nella procedura stessa. Questo tipo di utilizzo evita che il 
programma esegua gli enunciati per la gestione degli errori 
quando non si verifica alcun errore. 


+ L'enunciato Exit Sub compare in un enunciato If che esa- 
mina una condizione per determinare se sia o meno neces- 
sario uscire da una procedura Sub. 


Quello seguente è un esempio dell'uso dell’enunciato Exit Sub in 
una procedura Sub comprendente enunciati per la gestione degli 
errori. 
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Enunciato Exit Sub 


Sub DivideInts(X As Integer, Y As Integer) 
Dim Z As Integer 
On Error GoTo ZeroDivide 'attiva il gestore di errore 
Z=X/Y 
On Error GoTo 0 ' disattiva il gestore di errore 
Debug.Print Z 
' esce dalla procedura Sub 
Exit Sub 


' qui inizia il gestore di errore 
ZeroDivide: 

Y= 1 

Resume 
End Sub 


Questo esempio definisce la procedura DivideInts( ) che divide 
fra di loro i valori dei propri argomenti interi X e Y.La procedura 
attiva un gestore di errore prima di dividere questi argomenti e, dopo 
aver eseguito la divisione, lo disattiva. La procedura visualizza il ri- 
sultato della divisione e poi richiama un enunciato Exit Sub per 
uscire dalla procedura. Gli enunciati successivi a Exit Sub sono 
dei gestori di errore che iniziano immediatamente dopo l’etichetta 
ZeroDivide:. 


La mancanza dell’enunciato Exit Sub genera, in fase di esecu- 
zione, quando viene richiamata la procedura DivideInts( ),un 
errore. 


L'esempio seguente vuole dimostrare l’uso dell’enunciato Exit Sub 
in una procedura Sub contenente un enunciato If. 


Sub DivideNums(X As Integer, Y As Integer) 
Dim Z As Integer 
If Y = 0 Then Exit Sub 
Z=X/Y 
Debug Print Z 
End Sub 


L'esempio utilizza una procedura DivideNums( ) che divide i valo- 
ri interi dei propri argomenti X e Y.La procedura utilizza un enun- 
ciato If per determinare se il valore dell'argomento Y sia pari a 
zero.Quando questa condizione è vera,il programma esegue l’enun- 
ciato Exit Sub per uscire dalla procedura.In caso contrario, la pro- 
cedura divide gli argomenti, ne memorizza il risultato nella variabi- 
le locale Z e visualizza il valore ottenuto in tale variabile. 
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Funzioni 


Per eseguire alcune operazione e restituire un valore,Visual Basic si 
serve di funzioni. 


La sintassi generale di una funzione è la seguente. 


[Public | Private | Friend] [Static] Function nome 
[(elencoargomenti)] [As tipo] 

[enunciati] 

[nome = espressione] 

[Exit Function] 

[enunciati] 

[nome = espressione] 

Exit Function 


La dichiarazione di una funzione semplice inizia con la parola chia- 
ve Function e deve concludersi con un enunciato che contenga 
comunque le parole End Function.La tabella seguente schematiz- 
za le parti facoltative che possono apparire prima della parola chiave 
Function. 


Parte Descrizione 


Public Indica che la funzione sarà accessibile a tutte le altre pro- 
cedure di tutti i moduli. Se Public si utilizza in un modulo 
contenente Option Private, la funzione non sarà dispo- 
nibile dall'esterno del progetto. 


Private Indica che la funzione sarà accessibile solo alle altre pro- 
cedure del modulo nella quale la funzione è dichiarata. 


Friend Utilizzato solo in un modulo classe. Indica che la funzione 
sarà visibile dall'interno del progetto ma non dal control- 
lore di un'istanza di un oggetto. 


Static Indica che le variabili locali della funzione vengono con- 
servate fra una chiamata e l'altra. l'attributo Static non 
influisce sulle variabili che vengono dichiarate al di fuori 
della funzione, anche nel caso in cui queste vengano uti- 
lizzate all'interno della funzione stessa. 


La voce successiva nome corrisponde al nome della funzione e deve 
attenersi alle convenzioni standard per l'assegnazione dei nomi in 
Visual Basic. 


elencoargomenti è facoltativo (sebbene spesso utilizzato) e rap- 
presenta un elenco di argomenti tra di loro separati da virgole e 
che viene passato alla funzione quando questa verrà chiamata. 


Funzioni 


L'argomento elencoargomenti prevede la seguente sintassi. 


[Optional] [ByVal | ByRef] [ParamArray] nomeVar[( )] [As 
tipo] [= valoreDefault] 


Il termine argomento, in Visual Basic, viene spesso indicato, da altri 
linguaggi di programmazione, con il termine parametro e, nel con- 
tempo, si servono del termine argomento per fare riferimento al 
valore fornito al parametro quando si verifica una chiamata di fun- 
zione. 


La tabella seguente riporta le parti per l'indicazione di un argo- 
mento. 


Parte Descrizione 


Optional Indica che un argomento non viene espressamente richie- 
sto. Se utilizzato, tutti gli argomenti successivi contenuti 
in elencoargomenti, debbono necessariamente essere 
considerati facoltativi e dichiarati utilizzando la parola 
chiave optional. La parola chiave optional non deve 
essere utilizzata per alcun argomento nel caso in cui ven- 
ga utilizzato anche ParamArray. 


ByVal Indica che l'argomento viene passato in base al proprio 
valore. 
ByRef Indica che l'argomento viene passato in base al proprio 


riferimento (default). 


ParamArray Utilizzato solo come ultimo argomento di elencoargo - 
menti perindicare che l'argomento finale è una matrice 
di tipo optional di elementi variant. La parola chiave 
ParamArray consente di fornire un numero arbitrario 
di argomenti e non deve essere usato in presenza di ByVal 
ByRef od Optional. 


NomeVar Corrisponde al nome della variabile che rappresenta l'ar- 
gomento e deve seguire le convenzioni standard per l'as- 
segnazione dei nomi in Visual Basic. 


Tipo Definisce il tipo di dati dell'argomento passato alla proce- 
dura; può essere Byte, Boolean, Integer, Long, Currency, 
Single, Double, Date, String (solo di lunghezza varia- 
bile) object 0 Variant. 


valoreDefault Una qualsiasi costante o espressione costante. Questo 
elemento è valido peri parametri Optional e se il tipo è 
Object, sarà possibile solo assegnare il valore di default 
Nothing. 
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Dopo elencoargomenti della sintassi generale della funzione vi è 
tipo che definisce, facoltativamente, il tipo di dati del valore resti- 
tuito dalla funzione.Sono ammissibili i tipi Byte, Boolean, Integer, 
Long, Currency,Single,Double,Date,String (solo a lunghezza va- 
riabile), Object e Variant, 0 qualsiasi altro tipo di dati personale. 
Una funzione non può restituire una matrice ma può restituire un 
valore Variant contenente una matrice. Per restituire un valore, gli 
enunciati della funzione devono contenere un enunciato che asse- 
gni un valore al nome della funzione. Se non si assegna un valore a 
nome, la funzione genera un valore di default: una funzione numeri- 
ca restituirà 0, una funzione stringa una stringa vuota (o di lunghez- 
za zero, [""]) e una funzione di tipo Variant restituirà Empty.Una 
funzione che restituisce un riferimento a un oggetto restituirà 
Nothing nel caso in cui a nome (tramite Set) non venga assegnato 
alcun riferimento a oggetto. 


L'enunciato Exit Function determina l’uscita prematura dalla fun- 
zione e in una funzione possono apparire più enunciati Exit Fun - 
ction. 


Per maggiori informazioni sulle funzioni, si consulti il libro Visual 
Basic 6 For Dummies di Wallace Wang (Apogeo, 1998). 


Gli esempi seguenti hanno lo scopo di dimostrare l’uso delle fun- 
zioni: il primo restituisce un valore di tipo numerico mentre il se- 
condo restituisce un tipo stringa. 


Public Function Power(X As Double, Optional Y = 2) As 
Double 
If (X <> 0) Then 


Power = X * 1 
Else 

Power = -1E+300 
End If 


End Function 
Public Function ShowPow(X As Double, Optional Y As Double = 
2) As String 
ShowPow = "(" + CStr(X) + ")" © (" + Cstr(Y) +") =" + 
CStr(Power(X, Y)) 
End Function 
Private Sub Form Load( ) 
Dim A As Double 
Dim B As Double 
A = 5 
B=3 
Debug.Print ShowPow(A) 
Debug.Print ShowPow(A, B) 
Debug.Print ShowPow(-A, B) 
Debug.Print ShowPow(-A, -B) 
End Sub 
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Questo esempio genera la visualizzazione, nella finestra IMmedia- 
ta, del seguente risultato. 


(5)*(2) = 25 

(5) (3) = 125 

(-5) (3) = -125 
(-5)7(-3) = -0.008 


L'esempio contiene le funzioni Power ( ) e ShowPow( ).La prima 
restituisce il risultato ottenuto dall’elevazione di un numero a una 
potenza. La funzione genera un risultato di tipo Double ed è asso- 
ciata a due argomenti (X e Y) anch'essi di tipo Double. Il secondo 
argomento è facoltativo e gli viene assegnato il valore di default 2. 
Pertanto, quando si omette di inserire il valore per tale argomento, 
la funzione restituisce automaticamente l'elevazione al quadrato 
dell'argomento X.La funzione Power ( ) fa uso di un enunciato If 
per esaminare se il valore dell'argomento X non sia pari a 0.Quan- 
do questa condizione è vera, la funzione restituisce il valore di X 
elevato alla potenza corrispondente al valore di Y.In caso contrario, 
la funzione utilizza il valore -1E+399 (corrispondente a un numero 
negativo molto grande che riflette un codice numerico di errore). 


La funzione ShowPow( ) restituisce, invece, una stringa che format- 
ta il valore degli argomenti X e Y e genera il risultato di X elevato a Y. 
La funzione prevede un risultato di tipo String e due argomenti 
(X e Y) di tipo Double.Il secondo argomento, Y, è facoltativo e con- 
tiene il valore di default 2. Pertanto, quando non si assegna un valo- 
re a questo argomento, la funzione visualizza l'elevazione al qua- 
drato dell'argomento x.La funzione ShowPow( ) richiama la fun- 
zione Pow() e passa gli argomenti X e Y come valori agli argomenti 
della funzione Power ( ). 


La procedura Form _Load( ) dichiara le variabili locali A e B di tipo 
Double assegnando loro, rispettivamente, i valori 5 e 3. Successiva- 
mente la procedura richiama per quattro volte la funzione 
ShowPow() tramite quattro enunciati Print consecutivi. La prima 
chiamata di funzione passa il valore dell'argomento A alla funzio- 
ne ShowPow( ).Questa chiamata fa sì che la funzione ShowPow( ) 
utilizzi il valore di default (2) per l'argomento vY.La seconda chia- 
mata passa le variabili A e B come valori di argomento alla funzio- 
ne ShowPow( ).La terza chiamata passa le variabili -A e B come 
valori di argomento perla funzione ShowPow( ).L'ultima chiamata, 
infine, passa le variabili -A e -B come valori di argomento per la 
funzione ShowPow( ). 
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Procedure 


Una procedura è un componente di un'applicazione che esegue 
una o più operazioni all’interno del contesto di un programma di 
dimensioni più estese.Si può spesso pensare a una procedura come 
a un miniprogramma contenuto in un programma di più ampio 
respiro. Si chiama una procedura e si passano alla stessa valori per 
i suoi argomenti, in modo che tali valori siano in grado di fornire i 
dati richiesti. In questo modo la procedura sarà in grado di esegui- 
re i compiti alla stessa richiesti. 


La sintassi generale per una procedura è la seguente. 


[Private | Public | 
[(elencoargomenti)] 
[ enunciati] 


Friend] [Static] Sub nome 


[ Exit Sub] 
[ enunciati] i 
End Sub I 


La dichiarazione di una procedura semplice inizia con la parola | 
chiave Sub e termina con le parole chiavi End Sub. 


Nella tabella seguente vengono riportati gli elementi facoltativi che 
possono precedere la parola chiave Sub. 


Parte Descrizione 


Public Indica che la procedura sarà accessibile a tutte le altre 
procedure di tutti i moduli. Se Public si utilizza in un mo- 
dulo contenente Option Private, la procedura nonsarà 
disponibile dall'esterno del progetto. 


Private Indica che la procedura sarà accessibile solo alle altre 
procedure del modulo da cui la procedura è dichiarata. 


Friend Utilizzato solo in un modulo classe. Indica che la proce- 
dura sarà visibile dall'interno del progetto ma non dal con- 
trollore di un'istanza di un oggetto. 


Static Indica che le variabili locali della procedura vengono con- 
servate fra una chiamata e l’altra. l'attributo Static non 
influisce sulle variabili che vengono dichiarate al di fuori 
della procedura, anche nel caso in cui queste vengano 
utilizzate all'interno della procedura stessa. 


La voce successiva nome corrisponde al nome della procedura e 
deve attenersi alle convenzioni standard per l'assegnazione dei I 
nomi in Visual Basic. 
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elencoargomenti è facoltativo (sebbene spesso utilizzato) e rap- 
presenta un elenco di argomenti tra di loro separati da virgole e 
che viene passato alla procedura quando questa verrà chiamata. 


L'argomento elencoargomenti prevede la seguente sintassi. 


[Optional] [ByVal | ByRef] [ParamArray] nomeVar[( )] [As 
tipo] [= valoreDefault] 


Il termine argomento, in Visual Basic, viene spesso indicato, da altri 
linguaggi di programmazione, con il termine parametro e, nel con- 
tempo, si servono del termine argomento per fare riferimento al 
valore fornito al parametro quando si verifica una chiamata di pro- 
cedura. 


La tabella seguente riporta le parti per l’indicazione di un argo- 
mento. 


Parte Descrizione 


Optional Indica che un argomento non viene espressamente richie- 
sto. Se utilizzato, tutti gli argomenti successivi contenuti 
in elencoargomenti, debbono necessariamente essere 
considerati facoltativi e dichiarati utilizzando la parola 
chiave optional. La parola chiave Optional non deve 
essere utilizzata per alcun argomento nel caso in cui ven- 
ga utilizzato anche ParamArray. 


ByVal Indica che l'argomento viene passato in base al proprio 
valore. Questo tipo di argomento passa una copia del va- 
lore dell'argomento (che può corrispondere a una varia- 
bile o a un'espressione) alla procedura. Ogni modifica 
apportata a tale argomento all'interno della procedura non 
influisce sul valore originario dell'argomento. 


ByRef Indica che l'argomento viene passato in base al proprio 
riferimento (condizione di default). Questo tipo di argomen- 
to passa un riferimento del valore dell'argomento (che può 
corrispondere a una variabile) alla procedura. Qualsiasi 
modifica apportata all'argomento della procedura influi- 
sce sul valore originale dell'argomento. 


ParamArray Utilizzato solo come ultimo argomento di elencoargomen - 
ti per indicare che l'argomento finale è una matrice di 
tipo optional di elementi variant. La parola chiave Pa - 
ramArray consente di fornire un numero arbitrario di 
argomenti e non deve essere usata in presenza di ByVal 
ByRef od Optional. 


(continua) 
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Parte Descrizione 


NomeVar Corrisponde al nome della variabile che rappresenta l'ar- 
gomento e deve seguire le convenzioni standard per l'as- 
segnazione dei nomi in Visual Basic. 


Tipo Definisce il tipo di dati dell'argomento passato alla proce- 


dura; può essere Byte, Boolean, Integer, Long, Currency, 
Single, Double, Date, String (solo di lunghezza varia- 
bile), object o Variant. 


valoreDefault Una qualsiasi costante o espressione costante. Questo 


elemento è valido per i parametri Optional e se il tipo è 
Object, sarà possibile solo assegnare il valore di default 
Nothing. 


L'enunciato Exit Sub determina un’uscita anticipata dalla proce- 
dura che, tra l’altro, può prevedere la presenza di più enunciati di 
questo tipo. 


Vedi anche: in questa parte, la sezione che descrive l’enunciato 
“Exit Sub”. 


Per richiamare una procedura si deve utilizzare l’enunciato 


Call nomeProcedura([valoriElencoArgomenti]) 


Si ha anche la possibilità di omettere la parola chiave Call e le 
parentesi tonde che racchiudono i valori dell'elenco degli argo- 
menti e,in questo caso, la sintassi generale per richiamare una pro- 
cedura è la seguente. 


nomeProcedura [ValoriElencoArgomenti] 


Per maggiori informazioni sulle procedure, si consulti il libro Visual 
Basic 6 For Dummies di Wallace Wang (Apogeo, 1998). 


Quello seguente è un esempio di come utilizzare una procedura. 


Public Function Power(X As Double, Optional Y = 2) As 
Double 
If (X <> @) Then 
Power = X * Y 
Else 
Power 
End If 
End Function 
Public Sub ShowPow(X As Double, Optional Y As Double = 2) 
Debug.Print "(" + CStr(X) + ")""(" + CStr(Y) +") ?" + 
CStr(Power (X, Y)) 
End Sub 


-1E+300 
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Private Sub Form Load( ) 
Dim A As Double 
Dim B As Double 


A = 5 
B= 93 
ShowPow A 


Call ShowPow(A, B) ' uso della parola chiave Call 
ShowPow -A, B 
ShowPow -A, -B 

End Sub 


Questo esempio visualizza, nella finestra Immediata i seguenti ri- 


sultati. 
(5)7(2) = 25 
(5)*(3) = 125 


(-5)(3) = -125 
(-5)2(-3) = -0.008 


L'esempio contiene le funzioni Power ( ) e ShowPow( ).La prima 
restituisce il risultato ottenuto dall’elevazione di un numero a una 
potenza. La funzione genera un risultato di tipo Double ed è asso- 
ciata a due argomenti (x e Y) anch'essi di tipo Double. Il secondo 
argomento è facoltativo e gli viene assegnato il valore di default 2. 
Pertanto, quando si omette di inserire il valore per tale argomento, 
la funzione restituisce automaticamente l’elevazione al quadrato 
dell'argomento X. 


La funzione Power ( ) fa uso di un enunciato If per esaminare se 
il valore dell'argomento X non sia pari a 0. Quando questa condi 
zione è vera, la funzione restituisce il valore di X elevato alla poten- 
za corrispondente al valore di Y.In caso contrario, la funzione uti- 
lizza il valore -1E+3909 (corrispondente a un numero negativo mol- 
to grande che riflette un codice numerico di errore). 


La procedura ShowPow( ) restituisce, invece, una stringa che for- 
matta il valore degli argomenti X e Y_e genera il risultato di X eleva- 
to a y.La procedura prevede due argomenti (X e Y) di tipo Double 
dove il secondo è facoltativo e prevede l'assegnazione del valore 
di default 2. Pertanto, quando non si assegna un valore a questo 
argomento, la funzione visualizza l'elevazione al quadrato dell’ar- 
gomento X. 


La procedura ShowPow( ) richiama la funzione Pow( ) e passa i 
valori degli argomenti X e Y agli argomenti della funzione Power ( ). 


La procedura Form_Load( ) dichiara le variabili locali A e B di tipo 
Double assegnando loro, rispettivamente, i valori 5 e 3. Successiva- 
mente, la procedura richiama per quattro volte la funzione 
ShowPow( ) tramite quattro enunciati Print consecutivi. 
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La prima chiamata di funzione passa il valore dell'argomento A alla 
funzione ShowPow( ).Questa chiamata fa sì che la funzione 
ShowPow( ) utilizzi il valore di default 2 per l'argomento Y. La se- 
conda chiamata passa le variabili Ae B come valori di argomento 
alla funzione ShowPow( ).La terza chiamata passa le variabili -A e 
B come valori di argomento per la funzione ShowPow( ).L'ultima 
chiamata, infine, passa le variabili -A e -B come valori di argomen- 
to per la funzione ShowPow( ). 


o 


Manipolazione 
delle stringhe 


Le stringhe, nell'accezione più estesa, non sono altro che 
testo. Questa parte si occuperà di tutte quelle operazioni 
che si possono avviare sulle stringhe come, per esempio, la 
loro conversione in altri tipi di dati, l’isolamento di fram- 
menti di stringa, la loro espansione, riduzione, modifica ec- 
cetera. 


Argomenti trattati 
v Concatenazione e manipolazione delle stringhe 
v Conversione tra stringhe e altri tipi di dati 


v Operazioni sul testo delle stringhe 
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Visual Basic dà la possibilità di utilizzare l'operatore “+” per conca- 
tenare (o collegare), in un solo enunciato, due o più stringhe. La 
sintassi generale per l’uso dell’operatore “+” è la seguente. 


espressionei + espressione? + espressione3 + ... 


espressione 1,espressione2 ed espressione3 corrispondono a 
espressioni di tipo stringa che contengono variabili stringa, elementi 
testuali (racchiusi tra doppi apici [" "]) o una loro combinazione. 


“,” 


Quello che segue è un esempio dell’uso dell'operatore “+” per con- 
catenare varie stringhe. 


Private Sub Form Load( ) 
Dim Stri As String 
Dim Str2 As String 
Dim Str3 As String 
Stri = "Ciao" 
Str2 = "mondo" 
Str3 = Strit +" "+ Str2+ "!" 
Debug.Print Str3 
End Sub 


Il risultato di questo codice visualizza, nella finestra IMmediata, il 
seguente risultato. 


Ciao mondo! 


La procedura Form_Load( ) dichiara le variabili stringa locali Str1, 
Str2 e Str8. assegnando, alle prime due, rispettivamente, i valori 
"Ciao" e "mondo".La procedura quindi concatena queste due va- 
riabili stringa con altri elementi di tipo testuale e assegna il risulta- 
to finale alla variabile Str83. Infine, la procedura visualizza, nella 
finestra IMmediata,il valore della variabile Str3 servendosi, per que- 
sta operazione, di un enunciato Print. 


Conversione tra stringhe e altri tipi di dati 


Visual Basic prevede la presenza del tipo di dati Variant il cui 
scopo è quello di eseguire conversioni automatiche fra i dati strin- 
ga e i dati di tipo numerico. Il tipo di dati Variant si comporta 
come una stringa all'interno di un’espressione stringa, come un 
numero in un'espressione numerica, come un operatore booleano 
in un'espressione di tipo booleano, e così via. 
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Vedi anche: nella Parte III, la sezione che descrive le classi e i tipi 
di dati. 


La tabella seguente riporta le varie funzioni che si potranno usare 
per convertire i tipi di dati. 


Funzione Tipo restituito Intervallo 
per gli argomenti 


CBool Booleano Una qualsiasi espressione stringa o 


numerica. 
CByte Byte Da 0 a 255. 


Da —922.337.203.685. 477,5808 a — 
922.377. 203.685.477,5807. 


CCur Currency 


CDate Date Una qualsiasi espressione di tipo 


Date. 


+/-79.228.162.514. 254.337.393.543. 
950.335 per i numeri senza cifre deci- 
mali, oppure +/-7,9228162514243 
37393543950335 per i numeri con 28 
cifre decimali. Il più basso valore di- 
verso da zero è pari a 0,00000000000 
00000000000000001. 


Da -32.768 a 32.767; i valori frazionari 
vengono automaticamente arrotondati. 


Da -2.147.483.647 a 2.147.483.647; le 
frazioni vengono automaticamente ar- 
rotondate. 


Da —3,402823E38 a —1,401298E-45 per 
i valori negativi; da 1,401 298E-45 a 
3,402823E38 per i valori positivi. 


CDbl Double 


CInt Integer 


CLng Long 


CSng Single 


Lo stesso intervallo del tipo Double 
per i valori numerici e String per 
quelli di tipo stringa. 


CVar Variant 


Il valore restituito da cStr dipende 
dall'argomento dell'espressione. Per 
esempio, se l'espressione è di tipo 
booleano, la funzione restituirà True 
oppure False. Se l'espressione è una 
data, la funzione restituirà un valore 
di tipo Date. 


estr String 


L'esempio che segue dimostra come sia possibile utilizzare alcune 
funzioni di conversione dei tipi di dati. 
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Private Sub Form Load( ) 

Dim miaStr As String 

Dim Ok As Boolean 

Dim mioDbl As Double 

Dim mioLng As Long 

' verifica CBool 

miaStr = "true" 

Ok = CBool(miaStr) 

Debug.Print "Ok è "; Ok 

' verifica CDbl 

miaStr = "123.45" 

mioDbl =:CDbl(miaStr) 

Debug.Print "mioDbl è "; mioDbl 

' verifica CLng 

miaStr = "1234567890" 

mioLng = Clng(miaStr) 

Debug.Print "mioLng è "; mioLng 
End Sub 


L'esempio precedente visualizza, nella finestra Immediata, il seguente 
risultato. 


Ok è True 
MioDbl è 123.45 
MioLng è 1234567890 


La procedura Form_Load( ) dichiara le variabili seguenti. 
+ miaStr come String. 
+ 0k comeDouble. 
+ mioDbl come Boolean. 
+ mioLng come Long. 
La procedura Form_Load( ),poi, esegue le seguenti operazioni. 
+ Assegnaalla variabile miaStr la stringa letterale "true". 


+ Converte il contenuto della variabile miaStr in un risultato 
di tipo booleano servendosi della funzione CBool( ) e asse- 
gna il risultato alla variabile Ok. 


+ Visualizza il valore della variabile 0k nella finestra Imme- 
diata servendosi, per questa operazione, dell’enunciato 
Print. 


+ 


Assegna alla variabile miaStr la stringa letterale "123.45". 


+ Converte il contenuto della variabile miaStr in un risultato 
di tipo Double servendosi della funzione CDb1( ) e assegna 
il risultato finale alla variabile mioDb1. 
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+ Visualizza il valore della variabile mioDb1 nella finestra Im- 
mediata servendosi di un enunciato Print. 


> 


Assegna alla variabile miastr il valore letterale "1234567890". 


+ Converte il contenuto della variabile miaStr in un risultato 
di tipo Long servendosi della funzione CLng( ) e assegna il 
risultato finale alla variabile mioLng. 


+ Visualizza il valore della variabile nioLng nella finestra 
Immediata tramite l’enunciato Print. 


InStr( ) 
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La funzione di Visual Basic InStr( ) permette di ricercare una 
stringa all’interno di una stringa di dimensioni più estese. 


Vedi anche: in questa parte, la sezione che descrive la funzione 
InstrRev( ). 


La sintassi generale della funzione InStr( ) è la seguente. 


InStr([inizio, ]stringai, stringa2[, confronto]) 


L'argomento facoltativo inizio corrisponde a un’espressione nu- 
merica che imposta la posizione iniziale di ogni ricerca. Quando si 
omette il valore per questo argomento, la ricerca inizia in corrispon- 
denza del primo carattere. Se inizio contiene Nu11 (la parola chia- 
ve Null viene usata come sottotipo del tipo Variant per indicare 
che una variabile Variant non contiene dati validi), viene emesso 
un errore. L'argomento inizio viene necessariamente richiesto 
nel caso in cui si utilizzi anche l'argomento confronto. L'argomen- 
to stringai corrisponde alla stringa di ricerca mentre l'argomento 
confrontospecifica il tipo di confronto da avviare sulla stringa.L'ar- 
gomento confronto può essere anche omesso, oppure potrà esse- 
re pari a -1,0,1 o 2.Il valore 0 (assunto per default) esegue un 
confronto di tipo binario; il valore 1 un confronto testuale (il valore 
-1 esegue un confronto utilizzando l'impostazione dell’istruzione 
Option Compare); il valore 2 (utilizzato solo per Microsoft Access) 
esegue un confronto in base alle informazioni contenute nel data- 
base. La funzione restituisce 0 nel caso in cui non possa reperire la 
stringa ricercata. 


Per maggiori informazioni sulla ricerca di stringhe, si consulti il li- 
bro Visual Basic 6 For Dummies di Wallace Wang (Apogeo, 1998). 


Ecco un esempio dell’uso della funzione InStr( ). 


Private Sub Form_Load( ) 
Dim StringaPrincipale As String 
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InStr () 


Dim StringaCercata As String 
Dim Indice As Integer 


' assegna le stringhe 
StringaPrincipale = "123123123" 
StringaCercata = "23" 
Indice = Instr(StringaPrincipale, StringaCercata) 
Do While Indice > 0 
Debug.Print "Trovato alla posizione "; Indice 
Indice = InStr(Indice + 1, StringaPrincipale, 
StringaCercata) 
Loop 
End Sub 


Questo esempio visualizza, nella finestra Immediata, le seguenti li- 
nee: 


Trovato alla posizione 2 
Trovato alla posizione 5 
Trovato alla posizione 8 


La procedura Form_Load( ) dichiara la variabile StringaPrinci - 
pale di tipo String (nella quale viene memorizzata la stringa 
principale) e la variabile StringaCercata (nella quale viene me- 
morizzata la stringa di ricerca) anch'essa di tipo String.Viene an- 
che dichiarata la variabile Indice di tipo Integer. La procedura 
assegna le stringhe letterali "123123123" e "23", rispettivamente, 
alle variabili StringaPrincipale e StringaCercata.La procedu- 
ra quindi reperisce nella stringa principale la prima concordanza 
della stringa di ricerca servendosi, per questa operazione, della fun- 
zione InStr( ).I valori dell'argomento per questa chiamata corri 
spondono alle variabili StringaPrincipale e StringaCercata. 


La chiamata alla funzione InStr( ) ricerca i caratteri all’interno 
della variabile StringaPrincipale a partire dalla prima posizio- 
ne della stringa principale e ne memorizza il risultato nella variabi- 
le Indice. Per visualizzare il risultato di una ricerca terminata con 
esito positivo, e per procedere con la ricerca di ulteriori concor- 
danze, la procedura si serve di un ciclo Do While. 


Il ciclo Do While avvia una serie di iterazioni fintanto che la varia- 
bile Indice non conterrà un valore positivo. Il ciclo Do While si 
serve di due enunciati: il primo visualizza il valore della variabile 
Indice mentre il secondo ricerca la concordanza successiva ri- 
chiamando, per questa operazione, la funzione InStr( ). 


I valori dell'argomento di questa chiamata sono Indice + 1, Strin- 
gaPrincipale e StringaCercata.Il primo valore di argomento ga- 
rantisce che la ricerca venga rivolta verso la concordanza successi- 
va all’interno della stringa principale. 
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InstrReo ( ) 


La funzione di InstrRev( ) è molto simile alla InStr( ), eccetto 
per il fatto che la ricerca viene effettuata al contrario, ossia dall’ulti- 
mo carattere fino al primo. 


Vedi anche: in questa parte, la sezione che descrive la funzione 
InStr ( ). 


La sintassi generale della funzione InstrRev( ) è la seguente. 


InstrRev(stringa 1, stringa 2 [,inizio] [,confronto]) 


L'argomento facoltativo inizio corrisponde a un’espressione nu- 
merica che imposta la posizione iniziale (in riferimento all'ultimo 
carattere della stringa) di ogni ricerca. Per esempio, il valore 4 per 
questo argomento indica che la ricerca deve partire 4 caratteri pri- 
ma della fine della stringa. Quando si omette il valore per questo 
argomento, la ricerca inizia in corrispondenza dell’ultimo caratte- 
re.Se inizio contiene Null (la parola chiave Null viene usata 
come sottotipo del tipo Variant per indicare che una variabile 
Variant non contiene dati validi), viene emesso un errore. L'argo- 
mento inizio viene necessariamente richiesto nel caso in cui si 
utilizzi anche l'argomento confronto.L'argomento stringa corri 
sponde alla stringa di ricerca mentre l'argomento confronto spe- 
cifica il tipo di confronto da avviare sulla stringa. L'argomento con - 
fronto può essere anche omesso, oppure potrà essere pari a -1,0, 
1,2.Il valore @ (assunto per default) esegue un confronto di tipo 
binario; il valore 1 un confronto testuale (Il valore -1 esegue un 
confronto utilizzando l’impostazione dell'istruzione Option Com- 
pare); il valore 2 (utilizzato solo per Microsoft Access) esegue un 
confronto in base alle informazioni contenute nel database. La fun- 
zione restituisce 0 nel caso in cui non possa reperire la stringa ri- 
cercata. 


Per maggiori informazioni sulla ricerca di stringhe, si consulti il li- 
bro Visual Basic 6 For Dummies di Wallace Wang (Apogeo, 1998). 


Ecco un esempio dell’uso della funzione InstrRev( ). 


Private Sub Form_Load( ) 
Dim StringaPrincipale As String 
Dim StringaCercata As String 
Dim Indice As Integer 
' assegna le stringhe 
StringaPrincipale = "123123123" 
StringaCercata = "23" 
Indice = InstrRev(StringaPrincipale, StringaCercata) 
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Do While Indice > 0 
Debug.Print "Trovato alla posizione "; Indice 
Indice = InstrRev(Left(StringaPrincipale, Indice), 
StringaCercata) 
Loop 
End Sub 


Questo esempio visualizza, nella finestra Immediata, le seguenti li- 
nee: 


Trovato alla posizione 8 
Trovato alla posizione 5 
Trovato alla posizione 2 


La procedura Form_Load( ) dichiara la variabile StringaPrinci- 
pale di tipo String (nella quale viene memorizzata la stringa 
principale) e la variabile StringaCercata (nella quale viene me- 
morizzata la stringa di ricerca) anch'essa di tipo String.Viene an- 
che dichiarata la variabile Indice di tipo Integer. La procedura 
assegna le stringhe letterali "123123123" e "23", rispettivamente, 
alle variabili StringaPrincipale e StringaCercata.La procedu- 
ra quindi reperisce nella stringa principale l’ultima concordanza 
della stringa di ricerca servendosi, per questa operazione, della fun- 
zione InstrRev( ).I valori dell'argomento per questa chiamata 
corrispondono alle variabili StringaPrincipale e StringaCer- 
cata. 


La chiamata alla funzione InstrRev( ) ricerca i caratteri all'inter 
no della variabile StringaPrincipale a partire dall’ultima posi- 
zione della stringa principale e ne memorizza il risultato nella va- 
riabile Indice. Per visualizzare il risultato di una ricerca terminata 
con esito positivo, e per procedere con la ricerca di ulteriori con- 
cordanze, la procedura si serve di un ciclo Do While. 


Il ciclo Do While avvia una serie di iterazioni fintanto che la varia- 
bile Indice non conterrà un valore positivo. Il ciclo Do While si 
serve di due enunciati: il primo visualizza il valore della variabile 
Indice mentre il secondo ricerca la concordanza precedente ri- 
chiamando, per questa operazione, la funzione InstrRev( ).Ivalo- 
ri dell'argomento di questa chiamata sono Left (StringaPrinci- 
pale, Indice) e StringaCercata.Il primo valore di argomento ga- 
rantisce che la ricerca venga rivolta verso la concordanza prece- 
dente all’interno della stringa principale rimanente (ossia quella 
che si trova a sinistra del valore della variabile Indice). 
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Left( ) 


SEM Plo 
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La funzione Left( ) permette di estrarre alcuni caratteri da una 
stringa. 


Vedi anche: in questa parte, le sezioni che descrivono le funzioni 
Right( )eMid( ). 


La sintassi generale per la funzione Left( ) è la seguente. 


Left(stringa, lunghezza) 


Il parametro stringa corrisponde a un’espressione di tipo String 
che contiene i caratteri da estrarre. Se il valore di questa espressio- 
ne stringa è pari a Null, la funzione estrae Null (che corrisponde 
alla parola chiave utilizzata come sottotipo di Variant per indica- 
re che una variabile Variant non contiene dati validi).]l parame- 
tro lunghezza, invece, specifica il numero di caratteri da estrarre. 
Se l'argomento di questo parametro è pari a 0, la funzione restitui- 
sce una stringa vuota ("") e se l'argomento di questo parametro è 
pari o superiore al numero dei caratteri contenuti nella stringa, la 
funzione estrarrà tutti i caratteri. 


Quello seguente è un esempio di come usare la funzione Left( ). 


Private Sub Form Load( ) 
Dim miaStr As String 
miaStr = "1234567890" 
miaStr = Left(miaStr, 3) 
Debug.Print miaStr 

End Sub 


Questo esempio visualizza, nella finestra Immediata, il seguente ri- 
sultato: 


123 


La procedura Form-Load( ) dichiara la variabile stringa locale mia - 
Str e le assegna la stringa letterale "1234567890". La procedura 
quindi estrae dalla variabile miaStr i primi tre caratteri servendosi, 
per questa operazione, della funzione Left ( ).Il risultato di questa 
estrazione viene memorizzato di nuovo all’interno della stessa va- 
riabile. La chiamata della funzione Left( ) prevede gli argomenti 
miaStr e 3 che specificano, rispettivamente, la stringa dalla quale 
eseguire l'estrazione e il carattere dal quale iniziare l’estrazione. 


Nota. La funzione Left(stringa, lunghezza) si comporta nello stes- 
so modo della funzione Mid(stringa, 1, lunghezza). 
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Len ( ) 


PASULZA 


at 


La funzione Len( ) restituisce il numero dei caratteri di una stringa. 
La sintassi generale della funzione Len( ) è la seguente. 


Len(stringa) 


Questa funzione restituisce il numero dei caratteri del parametro 
specificato. 


Fcco un esempio dell’uso della funzione. 


Private Sub Form Load( ) 
Dim miaStringa As String 
miaStringa = "1234567890" 
Debug.Print Len(miaStringa) 
End Sub 


Questo esempio visualizza, nella finestra Immediata, il valore 10. 


La procedura Form_Load( ) dichiara la variabile stringa locale mia - 
Stringa e le assegna il valore "1234567890".La procedura quindi 
visualizza il numero dei caratteri contenuti nella variabile miaStr 
servendosi della funzione Len( ) inserita in un enunciato Print. 


La chiamata della funzione Len( ) prevede la presenza dell’argo- 
mento miaStr che specifica la stringa sulla quale operare. 


LCase ( ) 
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La funzione LCase( )converte i caratteri maiuscoli di una stringa 
in caratteri minuscoli. 


Vedi anche: in questa parte, la sezione che descrive la funzione 
UCase( ). 


La sintassi generale della funzione LCase( ) è la seguente. 


LCase (stringa) 


La funzione LCase( ) converte i caratteri maiuscoli dell’argomen- 
to stringa in caratteri minuscoli e restituisce la stringa risultante mo- 
dificata.La funzione non influisce sui caratteri della stringa che non 
sono maiuscoli. 


Per cambiare lo stato di maiuscolo/minuscolo dei caratteri di una 
variabile,si utilizzi tale variabile come valore per l'argomento strin- 
ga esi assegni il risultato ottenuto alla stessa variabile. Si ha anche 
la possibilità di modificare lo stato dei caratteri di una stringa ser 
vendosi sia della funzione LCase( ) sia della funzione UCase( ). 
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Pa Quello che segue è un esempio dell’uso della funzione LCase( ). 
Private Sub Form _Load( ) 
Dim miaStringa As String 
miaStringa = "SALVE, come va?" 
miaStringa = LCase(miaStringa) 
Debug.Print miaStringa 
End Sub 


Il risultato finale di questo esempio sarà la visualizzazione, nella 
finestra Immediata, di 


salve, come va? 


La procedura Form_Load( ) dichiara la variabile stringa locale mia - : 
Stringa e le assegna la sequenza di caratteri maiuscoli e minu- 2 
scoli "SALVE, come va?".La procedura chiama quindi la funzione 
LCase( ) e le assegna come argomento la variabile miaStringa. 
La funzione chiamata converte la componente della stringa in ca- | 
ratteri maiuscoli in caratteri minuscoli generando, quindi, il risulta- | 
to "salve, come va?".A questo punto, il risultato ottenuto viene 
assegnato di nuovo alla variabile miastringa il cui contenuto vie- 
ne visualizzato nella finestra Immediata tramite l’enunciato Print. 


LTrim( ), RTrim( ) e Trim( ) | 


Le funzioni LTrim( ),RTrim( ) eTrim( ) consentono di eliminare i 
da una stringa la presenza di spazi eccessivi. Ea 


La sintassi generale per le funzioni LTrim( ),RTrim( )e Trimèla È 
seguente. LL 


LTrim(stringa) 
RTrim(stringa) 
Trim(stringa) 


Il parametro stringa corrisponde alla stringa sulla quale la funzio- 
ne dovrà operare. La funzione LTrim( ) rimuove gli spazi in ecces- | 
so alla sinistra del parametro stringa e restituisce la stringa risultan- 
te. La funzione RTrim( ) rimuove gli spazi in eccesso alla destra | 
del parametro stringa e restituisce la stringa risultante. La funzione 
Trim( ) è una combinazione delle due funzioni precedenti in quan- 
to rimuove contemporaneamente dal parametro stringa gli spazi | 
in eccesso a destra e a sinistra della stringa stessa restituendo la I 
stringa elaborata finale. 


Quello che segue è un esempio dell’uso combinato delle funzioni 
LTrim( ),RTrim( )eTrim( ). 
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Private Sub Form Load( ) 
Dim miaStringa As String 


miaStringa = " Visual Basic " 

Debug.Print "'"; LTrim(miaStringa); "'" 

Debug.Print "'"; RTrim(miaStringa); "'" 

Debug.Print "'";Trim(miaStringa); "'" 
End Sub 


Questo esempio visualizza, nella finestra IMmediata, le seguenti li- 
nee: 


'Visual Basic ' 
' Visual Basic' 
'Visual Basic' 


La procedura Form_Load( ) dichiara la variabile stringa locale mia - 
Stringa ele assegna lastringa letterale " Visual Basic". 
La procedura prevede tre enunciati Print, uno per ciascuna fun- 
zione di eliminazione degli spazi in eccesso. 


Mid( ) 


La funzione Mid( ) permette di estrarre alcuni caratteri da una 
stringa. 


Vedi anche: in questa parte, le sezioni che descrivono le funzioni 
Left( )eRight( ). 


La sintassi generale per la funzione Mid( ) è la seguente. 


Mid(stringa, inizio[, lunghezza]) 


Il parametro stringa corrisponde a un'espressione di tipo String 
(che può essere una costante stringa, una variabile o una loro com- 
binazione) che contiene i caratteri da estrarre. Se il valore di que- 
sta espressione stringa è pari a Null, la funzione estrae Nul1 (che 
corrisponde alla parola chiave utilizzata come sottotipo di Variant 
per indicare che una variabile Variant non contiene dati validi).Il 
parametro inizio corrisponde alla posizione del carattere nella 
stringa dal quale iniziare l’estrazione, se il parametro inizio ecce- 
de il numero dei caratteri della stringa, la funzione Mid( ) restitui- 
sce una stringa vuota ("").Il parametro facoltativo lunghezza, in- 
vece, specifica il numero di caratteri da estrarre. Quando si omette 
l'indicazione del parametro lunghezza, o quando questo è inferio- 
re al numero dei caratteri della stringa (compreso il carattere indi- 
cato da inizio) la funzione estrae tutti i caratteri a partire dalla 
posizione iniziale fino a quella finale della stringa. 
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Per maggiori informazioni sulla funzione Mid( ),si consulti il li- 
bro Visual Basic 6 For Dummies di Wallace Wang (Apogeo, 1998). 


Quello seguente è un esempio di come usare la funzione Mid( ). 


Private Sub Form Load( ) 
Dim miaStr As String 
miaStr = "1234567890" 
miaStr = Mid(miaStr, 3, 4) 
Debug.Print miaStr 

End Sub 


Questo esempio visualizza, nella finestra Immediata, il seguente ri- 
sultato: 


3456 


La procedura Form_Load( ) dichiara la variabile stringa locale mia - 
Str e le assegna la stringa letterale "1234567890".La procedura 
quindi estrae dalla variabile miaStr quattro caratteri a partire dal 
terzo servendosi, per questa operazione, della funzione Mid( ).Il 
risultato di questa estrazione viene memorizzato di nuovo all’inter- 
no della stessa variabile. La chiamata della funzione Mid( ) preve- 
de gli argomenti miaStr, 3 e 4 che specificano, rispettivamente, la 
stringa dalla quale eseguire l'estrazione, la posizione iniziale per 
procedere con l’estrazione e il numero di caratteri da estrarre. 


Replace ( ) 


La funzione Replace( ) permette di sostituire tutte le occorrenze 
di una stringa all’interno di una stringa. 


Vedi anche: in questa parte, le sezioni che descrivono le funzioni 
Left( )€eRight( ). 


La sintassi generale per la funzione Replace( ) è la seguente. 


Replace (stringa, ricerca, rimpiazzo[, inizio[, numero[, 
confronto]]]) 


Il parametro stringa corrisponde a un’espressione di tipo String 
(che può essere una costante stringa, una variabile o una loro com- 
binazione) che contiene la stringa completa.Il parametro ricerca 
specifica i caratteri da cercare e sostituire all’interno di stringa.Il 
parametro rimpiazzo specifica i caratteri con cui sostituire quelli 
cercati.Il parametro facoltativo inizio corrisponde alla posizione 
del carattere nella stringa dal quale iniziare la sostituzione. Quan- 
do esso viene omesso, la sostituzione comincia dal primo carattere 
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della stringa. Il parametro facoltativo numero, invece, specifica il 
numero massimo di occorrenze da sostituire. Quando esso viene 
omesso, la funzione sostituisce tutte le occorrenze trovate mentre 
l'argomento confronto specifica il tipo di confronto da avviare 
sulla stringa. L'argomento confronto può essere anche omesso, 
oppure potrà essere pari a -1,0, 1 o 2.Il valore © (assunto per de- 
fault) esegue un confronto di tipo binario; il valore 1 un confronto 
testuale (il valore -1 esegue un confronto utilizzando l’impostazio- 
ne dell’istruzione Option Compare); il valore 2 (utilizzato solo per 
Microsoft Access) esegue un confronto in base alle informazioni 
contenute nel database. 


Quello seguente è un esempio di come usare la funzione Replace( ). 


Private Sub Form Load( ) 
Dim miaStr As String 
miaStr = "11011 Elm Street" 
Debug.Print miaStr 
miaStr = Replace(miaStr, "11", "22") 
Debug.Print miaStr 

End Sub 


Questo esempio visualizza, nella finestra Immediata, il seguente ri- 
sultato: 


11011 Elm Street 
22022 Elm Street 


La procedura Form_Load( ) dichiara la variabile locale di tipo 
String miaStr ele assegna la stringa letterale "11011 Elm Stre- 
et",visualizzandolo nella finestra Immediata. La procedura quindi 
richiama la funzione Replace( ) fornendole per parametri la strin- 
gamiaStr ele stringhe "11" e "22".La funzione Replace() sosti- 
tuisce tutte le occorrenze di "11" con "22"restituendo la variabile 
miaStr così ottenuta.Il contenuto della variabile miaStr,stampato 
nella finestra Immediata, è ora "22022 Elm Street". 


Right ( ) 


ANTA 9 


La funzione Right( ) permette di estrarre alcuni caratteri da una 
stringa. 


Vedi anche: in questa parte, le sezioni che descrivono le funzioni 
Left( )eMid( ). 


La sintassi generale per la funzione Right ( ) è la seguente. 


Right (stringa, lunghezza) 
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Il parametro stringa corrisponde a un'espressione di tipo String 
che contiene i caratteri da estrarre. Se il valore di questa espressio- 
ne stringa è pari a Nul1,la funzione estrae Null (che corrisponde 
alla parola chiave utilizzata come sottotipo di Variant per indica- 
re che una variabile Variant non contiene dati validi).Il parame- 
tro lunghezza, invece, specifica il numero di caratteri da estrarre. 
Se l'argomento di questo parametro è pari a 0, la funzione restitui- 
sce una stringa vuota ("") e se l'argomento di questo parametro è 
pari o superiore al numero dei caratteri contenuti nella stringa, la 
BRIIZA funzione estrarrà tutti i caratteri. 


SIR) & Ra ti 5 n 
Quello seguente è un esempio di come usare la funzione Right( ). 
È. 


Private Sub Form _Load( ) 
Dim miaStr As String 
miaStr = "1234567890" 
miaStr = Right (miaStr, 3) 
Debug.Print miaStr 

End Sub 


Questo esempio visualizza, nella finestra Immediata, il seguente ri- 
sultato: 


890 


La procedura Form_Load( ) dichiara la variabile stringa locale mia 
Str e le assegna la stringa letterale "1234567890". La procedura 
quindi estrae dalla variabile miaStr gli ultimi tre caratteri serven- 
dosi, per questa operazione, della funzione Right( ).Il risultato di 
questa estrazione viene memorizzato di nuovo all’interno della stes- 
sa variabile. La chiamata della funzione Right ( ) prevede gli argo- 
menti miaStr e 3 che specificano, rispettivamente, la stringa dalla 
quale eseguire l'estrazione e il carattere dal quale iniziarla. 


Nota. La funzione Right(stringa, lunghezza) si comporta nello stes- 
so modo della funzione Mid(stringa, Len(stringa)-lunghezza). 


RTrim( ) 


Vedi: in questa parte, la sezione “LTrim( ),RTrim( ) e Trim( )”. 


Stringhe e loro manipolazione 


Visual Basic prevede la presenza del tipo di dati String che con- 
sente di memorizzare, richiamare e manipolare i caratteri testuali. 
Si pensi a una stringa come a una matrice speciale di caratteri ai 
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quali si può singolarmente accedere tramite l’indicazione di un 
indice. 


L'indice del primo carattere di una stringa corrisponde a “1” e le 
stringhe consentono ai programmi Visual Basic di memorizzare in- 
formazioni testuali come nomi, indirizzi, nomi di città e così via. 


Vedi anche: in questa parte, la sezione che descrive come conver- 
tire le stringhe e altri tipi di dati. 


La tabella seguente descrive i vari modi in cui è possibile manipolare 
le stringhe tenendo presente che tutti i comandi riportati nella tabella 
vengono anche singolarmente descritti in questa stessa parte. 


Comando Visual Basic Descrizione 
& Concatena fra loro due stringhe. 
Instr( ) Ricerca la prima occorrenza di una 


stringa all'interno di un'altra stringa. 


InstrRev( ) Ricerca l'ultima occorrenza di una 
stringa all'interno di un'altra stringa. 


Left( ), Right( ) e Mid( ) Estrae i caratteri da una stringa par- 
tendo dall'inizio della stessa, da una 
posizione interna oppure dalla fine. 


Len( ) Restituisce la lunghezza di una strin- 
ga. 
LCase( ), UCase( ) Converte i caratteri di una stringa, 


rispettivamente, in caratteri minu- 
scoli o maiuscoli. 


LTrim( ), RTrim( ) eTrim( ) Elimina gli spazi aggiuntivi, rispetti- 
vamente, a sinistra a destra o da 
entrambi i lati della stringa. 


Replace( ) Sostituisce le occorrenze di una 
stringa all'interno di un'altra stringa. 

StrReverse( ) Inverte i caratteri presenti in una 
stringa. 


StrReverse ( ) 


La funzione StrReverse( ) sposta di posizione tutti i caratteri al- 
l’interno di una stringa in modo tale che il primo diventi l’ultimo e, 
viceversa, l’ultimo diventi il primo. 
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La sintassi generale della funzione StrReverse( ) è la seguente. 


StrReverse (stringa) 


La funzione StrReverse( ) restituisce in ordine inverso i caratteri 
presenti nel parametro stringa. 


Quello che segue è un esempio dell'uso della funzione StrReverse( ). 


Private Sub Form Load( ) 
Dim miaStringa As String 
miaStringa = "Salve, come va?" 
miaStringa = StrReverse(miaStringa) 
Debug.Print miaStringa 

End Sub 


Il risultato finale di questo esempio sarà la visualizzazione, nella 
finestra Immediate, di 


?av emoc ,evlas 


La procedura Form_Load( ) dichiara la variabile stringa locale mia - 
Stringa ele assegna la sequenza di caratteri "Salve, come va?". 
La procedura chiama quindi la funzione StrReverse( ) e le asse- 
gna come argomento la variabile miaStringa.La funzione chiama- 
ta inverte i caratteri della stringa generando, quindi, il risultato "?av 
emoc ,evlaS ".A questo punto, il risultato ottenuto viene assegna- 
to di nuovo alla variabile miaStringa il cui contenuto viene visua- 
lizzato nella finestra Immediata tramite l’enunciato Print. 


Trim( ) 


Vedi anche: in questa parte, la sezione “LTrim( ),RTrim( )e 
Trim( )”. 


UCase ( ) 


La funzione UCase( )converte i caratteri minuscoli di una stringa 
in caratteri maiuscoli. 


Vedi anche: in questa parte, la sezione che descrive la funzione 
LCase( ). 


La sintassi generale della funzione UCase( ) è la seguente. 


UCase (stringa) 


La funzione UCase( ) converte i caratteri minuscoli dell’argomen- 
to stringa in caratteri maiuscoli e restituisce la stringa risultante 


178 


UCase () 


modificata.La funzione non influisce sui caratteri della stringa che 
non sono minuscoli. 


Quello che segue è un esempio dell’uso della funzione UCase( ). 


Private Sub Form Load( ) 
Dim miaStringa As String 
miaStringa = "SALVE, come va?" 
miaStringa = UCase(miaStringa) 
Debug .Print miaStringa 

End Sub 


Il risultato finale di questo esempio sarà la visualizzazione, nella 
finestra Immediata, di 


SALVE, COME VA? 


La procedura Form_Load( ) dichiara la variabile stringa locale mia - 
Stringa e le assegna la sequenza di caratteri maiuscoli e minu- 
scoli "SALVE, come va?".La procedura chiama quindi la funzione 
UCase( ) e le assegna come argomento la variabile miaStringa. 
La funzione chiamata converte la componente della stringa in ca- 
ratteri minuscoli in caratteri maiuscoli generando, quindi, il risulta- 
to "SALVE, COME VA?".A questo punto, il risultato ottenuto viene 
assegnato di nuovo alla variabile miaStringa il cui contenuto vie- 
ne visualizzato nella finestra Immediata tramite l’enunciato Print. 


Gestione dei form 
e form MDI 


I form MDI (Multiple Document Interface) permettono di mi- 
gliorare sensibilmente l'aspetto dei propri programmi, con- 
sentendo di mantenere aperti contemporaneamente, nel- 
l'applicazione, più documenti.La struttura prevede un form 
principale dal quale dipendono uno o più form secondari. 
Argomenti trattati 

v I form MDI Multiple Document Interface) 

v Gestione di form multipli 


v Form principali e dipendenti (Form MDI) 
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Aggiunta di form MDI secondari 


Un form MDI principale può prevedere la presenza di uno o più 
form figli così come vengono definiti nella struttura della finestra 
Object Explorer. Questa finestra contiene sempre almeno un form 
figlio il che significa che un form figlio prevede almeno un form 
MDI principale dal quale parte l'esecuzione dell’applicazione. In 
un progetto si potranno creare altri form figli sui quali avviare la 
varie operazioni.In altre parole, se si desidera creare un’applicazio- 
ne composta da un massimo di quattro form figli, il progetto dovrà 
prevedere lo stesso numero di form figli (e ognuno di questi avrà 
un proprio nome tramite il quale si potrà accedere al form stesso). 


Questo scenario di un form principale e un certo numero fisso di 
form secondari è, indubbiamente, il più facile ma, di contro, limita 
le possibilità dell’applicazione MDI nel suo complesso. Uno scena- 
rio più flessibile si può ottenere con una condizione che preveda 
un numero variabile di form secondari e dove l’utente dell’applica- 
zione possa decidere quanti form MDI secondari utilizzare. 


Per gestire form secondari di un progetto, è necessario utilizzare 
una delle seguenti variabili a livello di form. 


+ Unoggetto di tipo Collection che memorizzi i form secon- 
dari come oggetti. 


+ Unindice di form secondari che mantenga una traccia del 
numero totale dei form secondari che verranno via via crea- 
ti. Il programma incrementa il valore di questo indice ogni 
volta che verrà creato un nuovo form secondario. Quando il 
programma chiuderà il form figlio precedentemente aperto, 
il valore dell'indice non subirà alcuna variazione. Questo 
schema permette all’indice di fornire sempre un identifica- 
tivo univoco per un form secondario. Di solito, tale numero 
identificativo viene utilizzato come parte dell'etichetta de- 
scrittiva del form stesso. 


Per aggiungere a un progetto un form secondario è necessario ef- 
fettuare le seguenti operazioni. 


*  Dichiarare una variabile locale che crei un nuovo form se- 
condario. 


+ Incrementare di 1 il valore dell’indice del form secondario. 


+ Caricare il form secondario servendosi dell’enunciato Load 
object. 


+ Intervenire sulle proprietà del nuovo form secondario (come, 
per esempio, impostare la proprietà Caption). 
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+ Visualizzare il nuovo form secondario tramite il metodo 
Show( ). 


+ Aggiungere il nuovo form secondario alla serie di oggetti 
servendosi del metodo Add(oggettoDaAggiungere). 


Viene ora proposto un esempio di un gestore di evento (associato 
al comando New) che crea e visualizza un nuovo form secondario. 


Private Sub mnuNew Click( ) 
Dim MDIchildForm as New MDIchild 
' incrementa la variabile di livello del form 
MDIchildindex = MDIchildIndex + 1 3 
Load MDIchildForm — 22) 
MDIchildForm.Caption = "MDI dipendente" + i 
Str(MDIchildindex) 
MDIchildForm.Show 
colMDIforms.Add MDIchildForm 
End Sub 


Questo gestore di evento esegue le operazioni seguenti. 


+ Dichiara una variabile locale MPIchildForm che crea un nuo- 
vo form secondario (del tipo MPIchild). 


+ Incrementa di 1 l'indice MPIchildIndex del form seconda- 
rio. 


*+  Caricail form servendosi dell’enunciato Load MDIchildForm. 


+ Interviene sulla proprietà Caption del form in modo da in- 
serirvi il valore dell'indice MMIchildIndex. 


+ Visualizza, servendosi del metodo Show( ),il nuovo form. 


+ Aggiunge il nuovo form alla serie di oggetti colMDIforms, Li 
servendosi, per questa operazione, del metodo Add(_ ).Il a 
valore dell'argomento per questo metodo corrisponde a 
MDIchildForm. 


Sistemazione dî form MDI dipendenti 


Visual Basic permette di gestire form o icone all’interno di un og- 
getto MDIForm utilizzando il metodo Arrange( ). 


La sintassi generale per l'adozione di questo metodo è la seguente. 


MDIparentForm.Arrange tipoSistemazione 


MDIparentForm corrisponde al nome del form MDI principale e 
l'argomento tipoSistemazione corrisponde a un valore o costan- 
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te che specifica come sistemare il form o le icone all’interno di un 
oggetto form MDI principale. I valori per l'’argomento tipoSiste - 
mazione sono i seguenti. 


+ Lacostante vbCascade (alla quale viene assegnato il valore 
0) sovrappone l’uno all’altro tutti i form MDI dipendenti non 
ridotti a icona. 


+ Lacostante vbTileHorizontal (alla quale viene assegnato 
il valore 1) affianca orizzontalmente tutti i form MDI dipen- 
denti non ridotti a icona. 


+ La costante vbTileVertical (alla quale viene assegnato il 
valore 2) affianca verticalmente tutti i form MDI dipendenti 
non ridotti a icona. 


+ La costante vbArrangeIcons (alla quale viene assegnato il 
valore 3) sistema le icone dei form MDI dipendenti ridotti a 
tale stato. 


Vengono ora proposti vari esempi di gestori di evento destinati a 
organizzare la disposizione di form MDI dipendenti. 


Private Sub mnuArrangeIcons_Click( ) 
MDIparent.Arrange vbArrangeIcons 

End Sub 

Private Sub mnuCascade Click( ) 
MDIparent.Arrange vdCascade 

End Sub 

Private Sub mnuHTile Click( ) 
MDIparent.Arrange vbTileHorizontal 

End Sub 

Private Sub mnuVTile Click( ) 
MDIparent.Arrange vbTilevertical 

End Sub 


La procedura mnuArrangeIcons_Click( ) sistema le icone dei form 
MDI dipendenti applicando il metodo Arrange( ) al form MDI prin- 
cipale MpIparent.Il valore dell'argomento tipoSistemazione è, 
in questo caso, vbArrangeIcons. 


La procedura mnuCascade_Click( ) sovrappone tutti i form MDI 
dipendenti non ridotti a icona applicando il metodo Arrange( ) 
al form MDI principale MoIparent.Il valore dell'argomento tipo - 
Sistemazione è,in questo caso, la costante vbCascade. 


La procedura mnuVTile Click( ) affianca verticalmente tutti i form 
secondari non ridotti a icona applicando il metodo Arrange( ) al 
form MDI principale MoIparent.Il valore dell'argomento tipoSi - 
stemazione è,in questo caso, la costante vbTileVertical. 
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La procedura mnuHTile_Click( ) affianca orizzontalmente tutti i 
form MDI dipendenti non ridotti a icona applicando il metodo Ar - 
range( ) al form MDI principale MbIparent. Il valore dell’argo- 
mento tipoSistemazione è,in questo caso,la costante vbTileHo - 
rizontal. 


Chiusura del form secondario attivo 


<SEMP/, 


Per chiudere il form secondario attivo è necessario accedere alla 
proprietà ActiveForm del form MDI principale. Quando si usa un 
oggetto Collection perla gestione dei form MDI dipendenti, sarà 
necessario utilizzare una procedura che esegua le operazioni se- 
guenti. 


+ Ricerca del form attivo tramite un ciclo che confronti, per 
esempio,la proprietà Caption di una voce nell'oggetto Co1 - 
lection conla proprietà parentMDI.ActiveForm.Caption. 
Quando i valori delle due proprietà Caption coincidono,la 
procedura dovrebbe procedere con l'esecuzione delle ope- 
razioni successive. 


® Scarica il form MDI secondario corrispondente servendo- 
si dell’enunciato MDIchildForm. 


® Rimuove il form MDI secondario attivo dall'oggetto Co1 - 
lection servendosi, per questa operazione, del metodo 
Remove(indice). 


Si propone ora un esempio che mostra un gestore di evento che 
risponde al clic sul menu Chiudi associato al menu della finestra 
MDI principale MbIparent. 


Private Sub mnuClose Click( ) 
Dim I As Integer 
' Ricerca il form MDI attivo 
For I = 1 To colMDIforms.Count 
' confronta le proprietà Caption 
If colMDIforms.Item(I).Caption = 
MDIparent.AcriveForm.Caption Then 
' trovato il form MDI attivo!! 
' scarica il form MDI attivo 
Unload colMDIforms.Item(I) 
' rimuove il form MDI dalla serie 
colMDIforms.Remove I 
' esce dopo aver rimosso il form 
' MDI secondario 
Exit Sub 
End If 
Next I 
End Sub 
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Questo gestore di evento dichiara la variabile I da utilizzare come 
variabile di un ciclo. La procedura utilizza un ciclo For per reperire 
un form attivo all’interno dell’oggetto Collection utilizzato per 
memorizzare i form MDI secondari. 


Il ciclo contiene un enunciato If che confronta il contenuto della 
proprietà Caption di ogni form MDI secondario (ai quali accede 
utilizzando l’espressione colMDIforms.ActiveForm.Caption) e del- 
la proprietà Caption del form MDI secondario attivo (al quale ac- 
cede tramite l’espressione MMIparent.ActiveForm.Caption).Quando 
le due proprietà coincidono, l’enunciato If esegue le seguenti ope- 
razioni. 


+ Scarica il form MDI secondario attivo servendosi, per questa 
operazione, dell’enunciato Unload.colMDIforms.Item(I). 


+ Rimuove dall'oggetto Collection il form MDI dipendente 
attivo servendosi del metodo Remove ( ).Il valore dell’argo- 
mento di questo metodo corrisponde alla variabile I (ovve- 
ro all’indice del form MDI secondario attivo). 


+ Esce dalla procedura utilizzando l’enunciato Exit Sub. 


Chiusura di tutti i form secondari 


Chiudere tutti i form MDI secondari è un'operazione particolarmen- 
te semplice se si utilizza, per la gestione raggruppata di tutti i form 
secondari, l’oggetto Collection. È necessario, tuttavia, avere a di- 
sposizione una routine che contenga un ciclo For a conteggio a 
ritroso il cui scopo è quello di elaborare le voci dell'oggetto Col- 
lection, eseguendo le seguenti operazioni. 


+ Scaricare i form secondari tramite l’enunciato Unload MDI - 
childForm. 


+ Rimuovere i form secondari dall’oggetto Collection ser- 
vendosi, per questa operazione, del metodo Remove(indice). 


L'esempio che viene ora proposto mostra un gestore di evento che 
risponde al clic sul comando di menu Chiudi Tutti associato al 
menu del form MDI principale MDIparent. 


Private Sub mnuCloseAll Click( ) 
Dim I As Integer 
For I = colMDIforms.Count To 1 Step -1 
' scarica il form MDI 
Unload colMDIforms.Item(I) 
' rimuove il form MDI dalla serie dei form 
vclMDIforms.Remove I 
Next I 
End Sub 
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Questo gestore di evento dichiara la variabile I come variabile di 
controllo di un ciclo. La procedura utilizza un ciclo For a conteg- | 
gio regressivo per avviare un’iterazione sui form MDI dipendenti 
dell'oggetto Collection (ovvero agisce dall'ultimo al primo). Gli | 
enunciati del ciclo eseguono le seguenti operazioni. I 


*  Scaricano un form secondario servendosi dell’enunciato 
Unload.colMDIforms.Item(I). 


+ Rimuovono un form secondario dall'oggetto Collection 
colMDIforms servendosi, per questa operazione, del meto- 
do Remove( ).Il valore dell'argomento di questo metodo 
corrisponde alla variabile I. 


Gestione di più form 


Visual Basic permette di creare un progetto composto da più form 
che potranno essere generici oppure di tipo specialistico. Quando 
si richiama il comando Inserisci form del menu Progetto,Visual Ba- | 
sic visualizza la finestra corrispondente, simile a quella della figura | 
seguente. | 


io Progetto? ; Microsoft Visual Baria [poget&zions} * 
9 e pi Piu 5 De o na ice a Pi 
{ea deu f[° Ci see REN/ o 


D 


Creazione guidata Finestra Browser Web 
Form dati VB Informazioni su 


ln O 


Finestra di dialogo Finestra Accesso Schermata iniziale Suggerimento de 
giorno 


€ (Restituisce o Imposta 
| [sulla barra del titolo o sotto l'icona di un 


MAwio|[t Progettoi - Microsoft ... ES Paint Shop Pio | 


Visual Basic è in grado di riconoscere e gestire i seguenti form di 
tipo specialistico. 
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Finestra di dialogo “Informazioni su” che visualizza le 
informazioni relative all'applicazione. 


Finestra di dialogo “Accesso” che richiede all'utente di 
digitare il proprio identificativo e la propria parola d'ordine 
prima di procedere con l’esecuzione dell’applicazione. 


Finestra di dialogo “Opzioni”, suddivisa in sezioni conte- 
nenti le varie opzioni per la personalizzazione dell’applica- 
zione. 


Videata “Schermata iniziale” nella quale si potrà inserire 
il nome dell’applicazione, quello del programmatore, un logo 
e qualsiasi altro elemento informativo che si desidera tra- 
smettere all'utente dell’applicazione stessa (si tratta, in so- 
stanza, di una videata di tipo “commerciale”). 


Videata “Suggerimento del giorno” che visualizza un con- 
siglio operativo ogni volta che l’utente avvia l'applicazione. 


Videata “ODBC Login” che presenta le opzioni per con- 
nettersi a un database. 


“Browser Web” per aggiungere all'applicazione una pagi- 
na Web Internet. 


“Creazione guidata form dati VB” che genera automati 
camente un form per visualizzare o elaborare le informazio- 
ni di un database. 


In presenza di più form, le impostazioni predefinite caricheranno il 
primo della serie (al quale viene per default assegnato il nome 
Form1); per selezionare un form diverso da visualizzare come pri- 
mo, si proceda come segue. 


1. 


Si acceda al comando Proprietà di Nome progetto del menu 
Progetto; Visual Basic aprirà una finestra di dialogo di op- 
zioni. 

Si attivi la sezione Generale. 


Si faccia clic sulla punta di freccia rivolta verso il basso del- 
l’elenco dell'opzione Oggetto di avvio per accedere all’elen- 
co dei form che fanno parte del progetto. 


Si selezioni il nome corrispondente al form che si desidera 
venga visualizzato per primo e si faccia clic su OK. per con- 
fermare. 


sulti il libro Visual Basic 6 For Dummies di Wallace Wang (Apogeo , 
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Form MDI (Multiple Document Interface) 


O Alley, 
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Un’applicazione MDI (Multiple Document Interface) è un tipo di 
programma che permette di lavorare contemporaneamente con più 
di un documento. I programmi di elaborazione testo come Micro- 
soft Word per Windows e WordPerfect per Windows sono degli otti- 
mi esempi di applicazioni di tipo MDI. 


Visual Basic consente la creazione di applicazioni MDI per le quali, 
tuttavia, è necessario avere un solo form MDI principale e almeno 
un form secondario. Visual Basic utilizza il termine “MDIForm” per 
indicare un form MDI principale e per creare o inserire un “MDI- 
Form”si dovrà richiamare il comando Inserisci form MDI dal menu 
Progetto. 


Poiché in Visual Basic si possono creare form secondari,in un uni- 
co progetto si potranno avere uno o più form la cui proprietà MDI - 
child sia impostata su True.In sostanza, è questa l’unica operazio- 
ne necessaria per creare form secondari. 


Se un form secondario prevede la presenza di propri menu, ogni vol- 
ta che uno di questi form risulterà attivo, la corrispondente Barra dei 
menu andrà automaticamente a sostituire quella dell'oggetto MDI - 
Form.L'icona di un form secondario verrà visualizzata all’interno del 
form MDI principale tenendo presente che un form MDIForm può 
contenere solo controlli di tipo Menu e PictureBox e altri controlli di 
tipo personalizzato che prevedano una proprietà Align. Per inserire 
in un oggetto MDIForms altri tipi di controllo sarà necessario creare 
una struttura per un'immagine e quindi inserire nella stessa i con- 
trolli desiderati. Per visualizzare il testo di una struttura di immagine 
di un MDIFormsi potrà usare il metodo Print ma lo stesso metodo 
non potrà essere usato per visualizzare il testo contenuto nell’ogget- 
to MDIFormstesso.La progettazione dei form secondari viene esegui- 
ta indipendentemente dall’oggetto MDIForm ma,in fase di esecuzio- 
ne dell’applicazione, i form dipendenti creati risulteranno sempre 
contenuti all’interno del form principale. 


Per maggiori informazioni su come lavorare con form MDI, si con- 
sulti il libro Visual Basic 6 For Dummies di Wallace Wang (Apogeo, 
1998.). 


Gestione dei form MDI 


La gestione dei form principali prevede l’esecuzione delle seguen- 
ti operazioni. 


+ Uso delle variabili a livello form per gestire le informazioni 
correlate ai form secondari. 
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+ Uso dei gestori di evento per rispondere al sistema di menu 
che è parte integrante del form MDI principale. 


+ Uso di eventi speciali, come Load( ) e Unload( ) perla 
gestione del caricamento e scaricamento del form MDI prin- 
cipale. Questi eventi consentono di inizializzare i form se- 
condari e di scaricarli quando si chiude l'applicazione con 
form MDI. 


Si ha anche la possibilità di gestire altri eventi associati al form MDI 
principale quali, per esempio, quelli relativi alle operazioni esegui- 
te con il mouse. 


L'esempio che segue, il cui risultato finale è rappresentato dalla fi- 
gura, utilizza un form MDI principale per la gestione dei form MDI 
dipendenti. 


@&!MDIFormi BEE 
File Finestra 


[rimetta 8 
0,1604415 


(06 
04100732 


0,7127305 


EE” RITIS == e5es.: Dx 


0,6465971 


&Finestia 2 


027928 


La tabella seguente mostra il sistema dei menu del form MDI prin- 
cipale (quello al quale è stato assegnato il nome MDIparent).Ini- 
zialmente il form visualizza solo un form secondario e ogni form 
secondario visualizzerà, ogni secondo, un numero casuale. 
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Menu Comando Name Caption 
File mnufile &File 
Nuovo mnuNew &Nuovo 
Chiudi tutti mnuCloseAll Chiudi &Tutti 
Chiudi mnuClose &Chiudi 
(separatore) NI - 
Esci mnuExit &Esci 
Window mnuWindow Finestra 
Affianca orizzontalmente mnuVTile Affianca &Orizzontalmente 
Affianca verticalmente mnuHTile Affianca &Verticalmente 
Sovrapponi mnuCascade &Sovrapponi 
Disponi icone mnuArrangelcons &Disponi 


L'utente potrà utilizzare il comando Nuovo del menu File per ag- 
giungere altri form secondari e il comando Chiudi, sempre del 
menu File, per chiudere il form secondario attivo.Il comando Chiu- 
di Tutti del menu File chiuderà tutti i form secondari.I comandi 
del menu Finestra hanno lo scopo, invece, di determinare la di- 
sposizione a video dei form secondari. Nella tabella seguente si 
riportano le impostazioni delle proprietà dei vari oggetti che fanno 


parte del progetto. 


Oggetto Proprietà Impostazione 

Form Name MDchild 

Etichetta Name IblINumber 

Temporizzatore Name tmtTimer 
Interval 1000 


Ecco il codice sorgente che genera l’applicazione. 


Option Explicit 
Dim MDIchildIndex As Integer 
Dim colMDIforms As New Collection 


Private Sub MDIForm Load( ) 
MDIchild.Caption = "Finestra 1" 
colMDIforms.Add MDIchild 
' imposta il contatore dei form secondari 
MDIchildIndex = 1 

End Sub 

Private Sub mnuArrangeIcons_Click( ) 
MDIparent.Arrange vbArrangeIcons 

End Sub 
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Private Sub mnuCascade Click( ) 
MDIparent.Arrange vbCascade 
End Sub 
Private Sub mnuClose Click( ) 
Dim I As Integer 
' ricerca il form MDI attivo 
For I = 1 To colMDIforms.Count 
' confronta le proprietà Caption 
If colMDIforms.Item(I).Caption = 
MDIparent.ActiveForm.Caption Then 
' trovato il form MDI attivo!! 
' scarica il form attivo 
Unload colMDIforms.Item(I) 
' rimuove il form MDI dalla serie 
colMDIforms.Remove I 
' esce dopo aver eliminato il form 
' secondario 
Exit Sub 
End If 
Next I 
End Sub 
Private Sub mnuCloseAll Click( ) 
Dim I As Integer 
For I = colMDIforms.Count To 1 Step -1 
'scarica il form MDI 
Unload colMDIforms.Item(I) 
' rimuove il form MDI dalla serie 
colMDIforms.Remove I 
Next I 
End Sub 
Private Sub mnuExit Click( ) 
End 
End Sub 
Private Sub mnuHTile Click( ) 
MDIparent.Arrange vbTileHorizontal 
End Sub 
Private Sub mnuNew Click( ) 
Dim MDIchildForm As New MDIchild 
MDIchildIndex = MDIchildIndex + 1 
Load MDIchildForm 
MDIchildForm.Caption = "Finestra" + Str(MDIchildIndex) 
MDIchildForm.Show 
colMDIforms.Add MDIchildForm 
End Sub 
Private Sub mnuVTile Click( ) 
MDIparent.Arrange vbTileVertical 
End Sub 
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L'esempio dichiara le seguenti variabili a livello form. 


<> 


+ 


La variabile MMIchildIndex,di tipo Integer che corrispon- 
de all’indice del form secondario. 


L'oggetto colMDIforms, di tipo Collection, che memorizza 
i form secondari. 


La procedura MDIForm_Load( ) gestisce il caricamento del form 
MDI principale, eseguendo le seguenti operazioni. 


+ 


> 


+ 


Assegna, alla proprietà Caption del primo form secondario, 
la stringa letterale "Finestra 1". 


Aggiunge il primo form secondario all'oggetto colMDIfor - 
ms. Questa operazione si serve del metodo Add e il valore 
dell’argomento di tale metodo corrisponde al nome del form 
secondario MDIchild. 


Assegna il valore 1 all'indice MDIchildIndex. 


Il gestore di evento mnuNew_Click( ) risponde al clic sul comando 
Nuovo eseguendo le operazioni seguenti. 


<> 


+ 


Dichiara una variabile locale MDIchildFormche crea un nuo- 
vo form secondario (di tipo MDIchild). 


Aggiunge 1 all'indice MMIchildIndex del form secondario. 


Carica il form secondario servendosi dell’enunciato Load 
MDIchildForm. 


Imposta la proprietà Caption del nuovo form secondario in 
modo che comprenda il valore dell’indice MDIchildIndex. 


Visualizza il nuovo form secondario servendosi del metodo 
Show( ). 


Aggiunge il nuovo form secondario all'oggetto colMDIforms 
servendosi, per questa operazione, del metodo Add( ).Ilvalo- 
re dell'argomento per questo metodo corrisponde a MDIchi1 - 
dForm. 


La procedura mnuClose_Click( ) risponde al clic sul comando 
Chiudi. Questo gestore di evento dichiara la variabile I che dovrà 
essere usata come variabile di controllo per un ciclo. La procedura 
utilizza un ciclo For per reperire il form attivo nell'oggetto Col - 
lection utilizzato per memorizzare i form secondari.Il ciclo con- 
tiene un enunciato If che confronta il contenuto della proprietà 
Caption di ogni form secondario (alla quale si accede servendosi 
dell'espressione colMDIforms.Item(I).Caption) e quello della pro- 
prietà Caption del form secondario attivo (alla quale si accede 
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tramite l’espressione MDIparent.ActiveForm.Caption).Quando i 
valori delle due proprietà coincidono, l’enunciato If eseguirà le 
seguenti operazioni. 


+ Scarica il form MDI dipendente attivo servendosi dell’enun- 
ciato Unload colMDIforms.Item(I). 


+ Rimuove, dall'oggetto Collection colMDIforms il form se- 
condario servendosi, per questa operazione, del metodo Re - 
move( ).Il valore dell'argomento per questo metodo corri- 
sponde alla variabile I (ovvero all’indice del form seconda- 
rio attivo). 


+ Esce dalla procedura utilizzando l’enunciato Exit Sub. 


La procedura mnuCloseAll Click( ) risponde al clic sul coman- 
do Chiudi Tutto dichiarando la variabile I da utilizzare come va- 
riabile di controllo del ciclo.La procedura si serve di un ciclo For a 
conteggio a ritroso per avviare un’iterazione sui form secondari con- 
tenuti nell’oggetto Collection (procedendo dall'ultimo al primo). 
Gli enunciati del ciclo eseguono le seguenti operazioni. 


+ Scaricamento di un form secondario servendosi dell’enun- 
ciato colMDIforms.Item(I). 


+ Rimozione del form secondario dall'oggetto Collection 
colMDIforms servendosi, per questa operazione, del meto- 
do Remove( ).Il valore dell'argomento per tale metodo cor 
risponde alla variabile I. 


La procedura mnuArrangeIcons_Click( ) risponde al clic sul co- 
mando Disponi Icone che sistema le icone dei form secondari 
ridotti a icona applicando il metodo Arrange( ) al form MDI prin- 
cipale MbIparent.Il valore dell'argomento relativo alla sistemazio- 
ne delle icone corrisponde alla costante vbArrangeIcons. 


La procedura mnuCascade_Clic( ) risponde al clic sul comando 
Sovrapponi che sovrappone tutte le finestre dei form secondari non 
ridotte a icona applicando, per questa operazione, il metodo 
Arrange( ) al form MDI principale mIparent.Il valore dell’argo- 
mento per la sistemazione degli oggetti corrisponde alla costante 
vbCascade. 


La procedura mnuVTile Click( ) risponde al clic sul comando 
Affianca Verticalmente che affianca verticalmente tutte le fine- 
stre dei form secondari non ridotte a icona servendosi, per questa 
operazione, del metodo Arrange( ) applicato al form MDI princi 
pale MbIparent.Il valore per l'argomento per la sistemazione degli 
oggetti corrisponde alla costante vbTileVertical. 
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La procedura mnuHTile Click( ) risponde al clic sul comando i 
Affianca Orizzontalmente che affianca orizzontalmente tutte le SE 
finestre dei form secondari non ridotte a icona servendosi, per que- 
sta operazione, del metodo Arrange( ) applicato al form MDI prin- 
cipale MpIparent.Il valore perl’arsomento perla sistemazione degli 
oggetti corrisponde alla costante vbTileHorizontal. 


Manipolazione e accesso 
alle matrici 


Le matrici (o array) sono dei contenitori vuoti nei quali è 
possibile memorizzare, almeno virtualmente, qualsiasi cosa, 
sempre che sia composta da tipi di dati accettabili. Le ma- 
trici possono essere monodimensionali (e in questo caso 
conterranno solo un lungo elenco di elementi), bidimen- 
sionali (come nel caso di una tabella composta da righe e 
colonne) o tridimensionali (assumendo, in questo caso, la 
forma di un ideale “cubo” di contenimento dei dati). In ef- 
fetti,si ha la possibilità anche di creare matrici multidimen- 
sionali composte da un massimo di 60 dimensioni (anche 
se questa disposizione non è visivamente immaginabile). 


Argomenti trattati 


v Uso delle matrici mono e multidimensionali 
per la memorizzazione dei dati 


v Come estrarre i dati dalle matrici mono 
e multidimensionali 


v Dichiarazione delle matrici 


v Uso delle matrici come funzioni o procedure 
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Limiti delle matrici 


Visual Basic consente di accedere agli indici inferiore e superiore 
di una matrice monodimensionale tramite le funzioni predefinite 
LBound( ) eUBound( ).Queste funzioni consentono di iterare tutti 
gli elementi di una matrice. 


La sintassi generale per le funzioni LBound( ) e Ubound{ ) è la 
seguente. 


LBound(nomeMatrice) 
UBound(nomeMatrice) 


La funzione LBound( ) restituisce il valore inferiore dell'indice 
della matrice mentre la funzione UBound( ) restituisce quello su- 
periore. 


La sezione di questa parte che descrive l’accesso alle matrici mo- 
nodimensionali contiene un esempio pratico dell'uso delle funzio- 
ni LBound( ) e UBound( ). 


Per accedere agli indici inferiore e superiore di una matrice multi- 
dimensionale si utilizza,invece, un’altra versione delle funzioni pre- 
definite LBound( ) e UBound( ).Queste funzioni alternative con- 
sentono di avviare un’iterazione su tutti gli elementi di una matrice 
multidimensionale. 


La sintassi generale per tali funzioni è la seguente. 


LBound(nomeMatrice, numeroDimensione) 
UBound(nomeMatrice, numeroDimensione) 


La funzione LBound( ) utilizzata in una matrice multidimensiona- 
le restituisce il valore inferiore dell’indice della dimensione speci- 
ficata dall’argomento numeroDimensione mentre la funzione 
UBound( ) restituisce quello superiore.Il numero minimo applica- 
bile all'argomento numeroDimensione è I. 


Nella sezione di questa parte che descrive come accedere alle 
matrici multidimensionali vi è un esempio pratico dell'uso di que- 
ste due funzioni. 


Accesso a matrici multidimensionali 
Le matrici multidimensionali consentono di memorizzare valori e 
richiamarli da una struttura precedentemente definita. 


La sintassi generale per accedere a un elemento di una matrice 
multidimensionale è la seguente. 
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nomeArray(indicet, indice2[, indice3, ...]) 


Questa sintassi indica che è necessario specificare innanzitutto il 
nome della matrice seguito da una serie di indici racchiusi tra pa- 
rentesi tonde. Il numero dell’indice coincide con la dimensione 
della matrice; inoltre, i valori degli indici devono essere compresi 
nell'intervallo che è stato utilizzato per dichiarare la matrice stessa. 


Per accedere all’indice inferiore o superiore di una matrice multi- 
dimensionale si utilizzano le funzioni predefinite LBound( ) e 
UBound( ) la cui sintassi generale è la seguente. 


LBound(nomeMatrice, numeroDimensione) 
UBound (nomeMatrice, numeroDimensione) 


La funzione LBound( ) restituisce il valore dell'indice inferiore del- 
la dimensione specificata dall’argomento numeroDimensione men- 
tre la funzione UBound( ) restituisce il valore superiore. Si tenga 
comunque presente che il valore di dimensione minimo ammissi- 
bile è pari a 1. 


Si fornisce ora un esempio che consente di accedere ai dati di una 
matrice bidimensionale. 


Private Sub Form _Load( ) 
Dim Arr(10, 10) As Double 
Dim Num As Variant 
Dim Somma As Double 
Dim Riga As Integer 
Dim Col As Integer 
Randomize 
' memorizza in una matrice una serie di valori casuali 
For Riga = LBound(Arr, 1) To UBound(Arr, 1) 
For (Col = LBound(Arr, 2) To UBound(Arr, 2) 
Arr(Riga, Col) = 1000 * Rnd( ) 
Next Col 
Next Riga 
' somma iniziale 
Somma = 0 
' aggiunge alla somma gli elementi della matrice 
For Each Num In Arr 
Somma = Somma + Num 


Next Num 

' Visualizza la somma 

Debug.Print "Somma = "; Somma 
End Sub 


Il codice potrebbe presentare, come risultato, la seguente linea: 


Somma = 64918.2204604149 
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Questo esempio dichiara la matrice bidimensionale Arr di tipo 
Double alla quale vengono assegnate 11 righe e 11 colonne, la pro- 
cedura Form_Load( ) si serve di un ciclo For -Next per assegnare 
agli elementi della matrice Arr una serie di numeri casuali. Questi 
cicli fanno uso delle funzioni predefinite LBound( ) e UBound( ) 
per accedere ai limiti inferiore e superiore di ogni dimensione del- 
la matrice Arr( ).Per esempio, l’espressione LBound(Arr, 1) e 
UBound(Arr, 1) restituiranno, rispettivamente, i valori 0 e 10 che, in 
effetti, corrispondono agli indici inferiore e superiore della prima 
dimensione della matrice in esame. 


La procedura Form-Load( ) si serve di un semplice ciclo For Each 
per aggiungere i valori nella matrice Arr( ) alla variabile Somma vi- 
sualizzandone, successivamente, il valore nella finestra Immediata. 


Accesso a matrici monodimensionali 
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L'accesso agli elementi di una matrice monodimensionale consen- 
te di memorizzare ed estrarre valori da un elemento matrice. 


La sintassi generale per accedere a un elemento di una matrice 
monodimensionale è la seguente. 


nomeMatrice(indice) 


Questa sintassi mostra che è necessario prima specificare il nome 
della matrice seguito da un indice racchiuso tra parentesi tonde (il 
cui scopo è quello di selezionare un elemento della matrice stes- 
sa).Il valore per l'indice deve essere compreso nell'intervallo defi- 
nito quando si è dichiarata la matrice. 


Per accedere agli indici inferiore o superiore di una matrice monodi- 
mensionale, si devono utilizzare le funzioni predefinite LBound( ) e 
UBound( ) la cui sintassi generale è la seguente. 


LBound(nomeMatrice) 
UBound(nomeMatrice) 


La funzione LBound( ) restituisce il valore dell'indice inferiore del- 
la matrice nomeMatrice mentre la funzione UBound( ) restituisce 
quello superiore. 


L'esempio che segue indica come accedere a una matrice mono- 
dimensionale. 


Private Sub Form Load( ) 
Dim Arr(10) As Double 
Dim Num As Variant 
Dim Somma As Double 
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Dim I As Integer 
Randomize 
' memorizza in una matrice una serie di valori casuali 
For I = LBound(Arr) To UBound(Arr) 
Arr(I) = 1000 * Rnd( ) 
Next I 
' somma iniziale 
Somma = 0 
' aggiunge alla somma un elemento della matrice 
For Each Num In Arr 
Somma = Somma + Num 


Next Num 
' visualizza il risultato della somma 
Debug.Print "Somma = "; Somma 

End Sub 


Questo codice potrebbe visualizzare, nella finestra Immediate la 
seguente linea: 


Somma = 4880 .45918941498 


Il codice dichiara la matrice Arr di tipo Double contente 11 ele- 
menti. La procedura Form_Load( ) utilizza un ciclo For-Next per 
assegnare agli elementi della matrice Arr una serie di numeri ca- 
suali.Il ciclo For -Next si serve delle funzioni predefinite LBound( ) 
e UBound( ) per accedere ai limiti inferiore e superiore della matri- 
ce Arr( ).Le espressioni LBound(Arr) e UBound(Arr) restituiscono, 
rispettivamente, i valori 0 e 10 che corrispondono agli indici inferiore 
e superiore della matrice stessa. 


La procedura Form_Load( ) utilizza un solo ciclo For Each per 
aggiungere alla variabile Somma i valori della matrice Arr( ) visua- 
lizzandone successivamente il risultato nella finestra Immediata. 


Copia di matrici 
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Visual Basic consente di copiare matrici usando l’operatore =, esat- 
tamente come per gli altri tipi di variabili. Occorre comunque atte- 
nersi a due semplici regole. 


+ Le matrici a dimensione variabile possono apparire da en- 
trambe le parti dell'operatore di assegnazione =. 


+ Le matrici di dimensione fissa possono apparire solo alla 
destra dell'operatore di assegnazione =. 


Ecco un esempio di codice per la copia di matrici. 


Sub Sort(InData() As String, OutData() As String) 
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OutData = InData 'Copia dei dati 
QuickSort OutData ‘Ordinamento dei dati 
End Sub 


La procedura Sort( ) ordina il vettore di stringhe InData. La pro- 
cedura utilizza l'argomento OutData per restituire i dati ordinati 
senza alterare la matrice di partenza InData. Infatti, la procedura 
Sort( ) prima copia la matrice InData nella matrice CutData e 
solo successivamente chiama la procedura QuickSort( ),che ese- 
gue l'ordinamento dei dati presenti in OutData. 


Dichiarazione di matrici multidimensionali 


Visual Basic consente di dichiarare matrici multidimensionali ser 
vendosi di indici multipli (uno per ciascuna dimensione). Il tipo 
più comune di matrice multidimensionale è quella composta da 
righe e colonne (in una disposizione di tipo tabellare) ed è, quindi, 
composta da due dimensioni. Un altro tipo di matrice multidimen- 
sionale abbastanza comune prevede tre dimensioni in una sorta di 
“cubo” nel quale i dati si sviluppano in altezza, in larghezza e in 
profondità (per esempio, una matrice di tabelle sovrapposte). 


Quando si dichiara una matrice multidimensionale è necessario, 
innanzitutto, specificarne il nome, l’intervalio di indici e il tipo di 
dati degli elementi della matrice stessa. 


La sintassi generale per dichiarare una matrice multidimensionale 
è la seguente. 


Dim nomeMatrice([inizio1 To] Finet, [inizio2 To] Fine2 
[, ...]) As tipo 


L'enunciato Dim specifica il nome della matrice, seguito dai rispet- 
tivi intervalli di indice (che specificano, nel contempo, il numero 
delle dimensioni: in sostanza, il numero degli intervalli indicati de- 
finisce la multidimensionalità della matrice) e, quindi, il tipo di dati 
che la matrice dovrà contenere. Si possono anche specificare il li- 
mite inferiore e superiore dei valori della matrice e se si omette 
l'indicazione di quello inferiore, tale limite dipenderà dal valore 
dell’enunciato Option Base tramite il quale si potrà impostare il 
limite inferiore di default a un valore pari a 0 oppure a 1.In man- 
canza dell’enunciato Option Base,il limite inferiore di una matri- 
ce viene, per default, impostato a 0. 


<®*%&. Per maggiori informazioni circa le matrici multidimensionali, si 
() consulti il libro Visual Basic 6 For Dummies di Wallace Wang (Apo- 
Lo geo, 1998). 
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L'esempio seguente indica come dichiarare una matrice multidi- 
mensionale. 


Option Base 1 

Dim Giorni(1 To 7; 1 To 52) As Integer 
Dim Anni(1980 To 2000, 12) As Long 
Dim miaMatrice(10, 5, 2) As Double 


La prima linea di questo codice dichiara la matrice bidimensiona- 
le Giorni con gli indici compresi tra 1 e 7 e da 1 a 52.Gli elementi 
della matrice memorizzano valori di tipo Integer e la matrice stessa 
sarà composta da 364 (7 x 52 = 364) elementi. 


La seconda linea del codice dichiara la matrice bidimensionale 
Anni con un intervallo di indici da “1980” a “2000” e da “1” (default 
impostato dall’enunciato Option Base) a “12”, Gli elementi della 
matrice saranno di tipo Double e la matrice stessa sarà composta 
da 252 (21 x 12= 252) elementi. 


L'ultima linea del codice definisce la matrice tridimensionale mia - 
Matrice con l’intervallo di indici compreso tra “1” (default impo- 
stato dall’enunciato Option Base) a 10,1e5 e da 1 a 2.Gli elementi 
della matrice saranno di tipo Double e la matrice stessa sarà com- 
posta da 100 (10 x 5 x 2= 100) elementi. 


Dichiarazione di matrici monodimensionali 


Le matrici monodimensionali sono la forma più semplice di matri- 
ce e potrebbero essere paragonate a una sola riga o colonna di 
dati. Per esempio, si potrà usare una matrice monodimensionale 
per memorizzare i valori delle temperature massime di ogni giorno 
dell’anno. 


Quando si dichiara una matrice monodimensionale si deve speci- 
ficarne il nome, l'intervallo di indici e il tipo di dati ammessi. 


La sintassi generale per dichiarare una matrice monodimensiona- 
le è la seguente. 


Dim nomeMatrice([inizio To] fine) As tipo 


L'enunciato Dim specifica il nome della matrice seguito, racchiuso 
. fra parentesi tonde, dall’intervallo degli indici e quindi, dal tipo di 
dati che la matrice dovrà contenere.Si ha la possibilità di specifica- 
re il limite inferiore e superiore dell'intervallo degli indici e,in que- 
sto caso, il numero degli elementi della matrice corrisponderà a 
fine-inizio+1.Se si omette di indicare il limite inferiore, tale limi- 
te dipenderà dal valore dell’enunciato Option Base tramite il qua- 
le si può definire il limite inferiore di defaultimpostandone il valo- 
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rea00a1.In mancanza dell’enunciato Option Base,il limite infe- 
riore di una matrice verrà per default impostato a 0. 


Per maggiori informazioni circa le matrici monodimensionali, si 
consulti il libro Visual Basic 6 For Dummies di Wallace Wang (Apo- 
geo, 1998). 


L'esempio seguente indica come sia possibile dichiarare varie ma- 
trici monodimensionali. 
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Dim Giorni(1 To 7) As Integer 
Dim Anni(19890 To 2000) As Long 
Dim miaMatrice(10) As Double 


La prima linea del codice dichiara la matrice Giorni con un inter 
vallo di indici da 1 a 7.Gli elementi della matrice devono essere di 
tipo Integer e la matrice è composta da 7 elementi. La seconda 
linea del codice dichiara la matrice Anni con gli indici compresi 
tra 1980 e 2000. Gli elementi della matrice sono di tipo Double e la 
matrice è composta da 20 elementi.La terza linea del codice di- 
chiara la matrice miaMatrice con un intervallo di indici che va da 
0 (valore di defaultin mancanza dell’enunciato Option Base) a 10. 
Gli elementi della matrice saranno di tipo Double e la matrice stes- 
sa sarà composta da 11 elementi. 


Visual Basic consente anche di dichiarare una matrice monodimen- 
sionale all’interno di una variabile di tipo Variant. Per farlo, occor- 
re prima dichiarare una variabile di tipo Variant e quindi asse- 
gnarle la matrice di valori per mezzo della funzione Array( ).Gli 
elementi della matrice all’interno della variabile Variant possono 
essere utilizzati per mezzo di un indice, come quelli di una comu- 


ne matrice. 
SEM, , A dci i ia . 
CS L'esempio seguente indica come sia possibile dichiarare in questo 


modo una matrice monodimensionale. 


Dim Numeri As Variant 

Numeri = Array(1, 2, 3, 4) 

For I = LBound(Numeri) To UBound(Numeri) 
Debug.Print Numeri(I) 

Next I 


L'esempio dichiara la variabile Numeri, di tipo Variant, e quindi vi 
inserisce la matrice di valori 1,2,3 e 4 per mezzo della funzione 
Array( ).Questo assegnamento fa si che Visual Basic consideri 
Numeri come una matrice. 


Gli elementi presenti nella variabile Numeri vengono quindi visua- 
lizzati da un ciclo For.Si noti che l'elemento di partenza e quello di 
arrivo vengono ricavati per mezzo delle funzioni LBound( ) e 
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UBound( ),che normalmente sono utilizzate solo per le matrici, 
non per i Variant. Stessa considerazione per quanto riguarda la 
lettura dei valori, eseguita dall'espressione Numeri(I). 


Matrici come argomenti 
di funzioni e procedure 
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Visual Basic consente alle funzioni e alle procedure di ammettere 
come argomenti una qualsiasi matrice aperta. Le matrici di questo 
tipo sono argomenti che specificano il tipo dell'elemento della 
matrice senza, tuttavia, specificare il numero degli elementi. Inoltre, 
in Visual Basic, le matrici aperte non necessitano della dichiarazio- 
ne del numero delle dimensioni. 


La sintassi generale per una matrice aperta è la seguente. 


nomeMatrice( ) As tipo 


nomeMatrice corrisponde al nome dell’argomento mentre tipo de- 
finisce il tipo di dati degli elementi della matrice. 


Si eviti di passare matrici come valori per argomenti di matrice 
quando le dimensioni sono diverse. Per esempio, non si passì una 
matrice multidimensionale quando la routine prevede un argomen- 
to matrice monodimensionale. 


Ricordare. Quando si dichiara un argomento matrice come Va - 
riant,si potranno anche passare matrici di tipo Variant per ela- 
borare stringhe o valori numerici, poiché i passi richiesti sono esat- 
tamente gli stessi sia per le stringhe sia per i numeri. Un esempio 
classico, potrebbe essere l'ordinamento o la ricerca di dati. 


L'esempio seguente mostra come sia possibile gestire un argomen- 
to matrice di tipo monodimensionale per ordinare una matrice di 
stringhe. 


Sub Sort(Arr( ) As String, First As Integer, Last As 
Integer) 

Dim I As Integer 

Dim J As Integer 

Dim OrdStr As String 


For I = Fisrt To Last - 1 
For J4 = I + 1 To Last 
If Arr(I) > Arr(J) Then 


OrdStr = Arr(I) 
Arr(I) = Arr(J) 
Arr(J) = Ordstr 


End If 
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Next J 
Next I 
End Sub 
Private Sub Form Load( ) 
Dim Nomi(10) As String 
Dim I As Integer 
Dim Count As Integer 


' assegna le stringe ad alcuni 
' elementi della matrice 


Nomi(1) = "John" 
Nomi(2) = "Lara" 
Nomi(3) = "Emilio" 
Nomi(4) = "Marzia" 
Nomi(5) = "Joe" 
Count = 5 


' visualizza la matrice non ordinata 
Debug.Print "Matrice non ordinata: " 
For I = 1 To Count 
Debug.Print Nomi(1) 
Next I 
' ordina la matrice 
Sort Nomi, 1, Count 
' visualizza la matrice ordinata 
Debug.Print "Matrice ordinata: " 
For I = 1 To Count 
Debug.Print Nomi(1) 
Next I 
End Sub 


Questo codice genererà, nella finestra Immediata il seguente risul- 
tato. 


Matrice non ordinata: 
John 

Lara 

Emilio 

Marzia 

Joe 


Matrice ordinata: 
Emilio 

Joe 

John 

Lara 

Marzia 


Questo risultato riporta prima gli elementi di una matrice stringa 
non ordinati seguiti dagli elementi della stessa matrice elencati in 
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ordine alfabetico.La procedura Sort( ) è destinata, quindi, a gene- 
rare un ordinamento di una matrice di stringhe ed è associata ai 
seguenti argomenti. 


+ L'argomento Arr che corrisponde a una matrice aperta di 
stringhe. 


+ Gli argomenti First e Last di tipo Integer che rappresen- 
tano l'intervallo degli indici dei primi elementi della matrì- 
ce da ordinare. Questi argomenti consentono di ordinare, 
quando necessario, una parte degli elementi della matrice. 


La procedura Sort( ) utilizza cicli For annidati che sì occupano 
di riorganizzare gli elementi della matrice. 


Questi cicli annidati confrontano gli elementi fra di loro contigui 
della matrice Arr per ordinarli servendosi di un metodo di ordina- 
mento definito Bubble Sort. 


La procedura Form_Load( ) dichiara la matrice di stringhe locale 
Nomi e le variabili I,J e Count di tipo Integer eseguendo, quindi le 
seguenti operazioni. 


+ Assegnaivalori ai primi cinque elementi della matrice Nomi. 
+ Assegnaalla variabile Count il valore 5. 


+ Visualizza, nella finestra Immediata,i primi cinque elementi 
della matrice Nomi in forma non ordinata. 


+  Ordinai primi cinque elementi della matrice non ordinata 
Nomi.Questa operazione si serve della procedura Sort( ) e 
trasferisce i valori Nomi, 1 e Count, rispettivamente, agli argo- 
menti Arr,First e Last. 


+ Visualizza, nella finestra Immediate,i primi cinque elementi 
della matrice Nomi in forma ordinata. 


L'esempio seguente è una procedura il cui argomento corrisponde 
a un array di tipo bidimensionale (chiamato anche matrice). 


Sub visMatr(Matr( ) As Double, Righe As Integer, Col As 
Integer) 

Dim I As integer 

Dim J As Integer 


For I = 1 To Righe 
For 4 = 1 To Col 
Debug.Print Mat(1, 4); " "; 
Next J 
Debug .Print 
Next I 
End Sub 
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Private Sub Form_Load( ) 
Dim Matrix(5, 5) As Double 
Dim I As Integer 
Dim J As Integer 


For I= 1 To 5 
For J = 1 To 5 
Matrix(I, J)=I+10*4U 
Next J 
Next I 
visMatr Matrix, 5, 5 
End Sub 


Il risultato, nella finestra Immediata, di questo codice è il seguente. 


11 21 31 41 51 
12 22 32 42 52 
13 23 33 43 53 
14 24 34 44 54 
15 25 935 45 55 


Questo codice dichiara la procedura visMatr( ) che prevede i 
seguenti argomenti. 


+ L'argomento Mat che corrisponde a una matrice aperta con 
elementi di tipo Double. 


+ Gli argomenti Righe e Col di tipo Integer che rappresenta- 
no il numero di righe e colonne da visualizzare. Questi argo- 
menti consentono di visualizzare, quando necessario, solo 
una parte della matrice. 


La procedura visMatr( ) si serve di cicli For per visualizzare, nel- 
la finestra Immediata, gli elementi dell’argomento Mat. La routine 
visualizza gli elementi dell'argomento matrice disponendoli su ri- 
ghe. 


La procedura Form _Load( ) dichiara la matrice locale Matrix di 
tipo Double ele variabili I e J di tipo Integer. La procedura ese- 
gue quindi le seguenti operazioni. 


+ Assegna valori agli elementi della matrice Matrix. Questa 
operazione si serve di cicli For e assegna, a ogni elemento 
della matrice, il valore (I + 10 * U). Questa espressione 
utilizza i valori del contatore del ciclo. 


+ Visualizza gli elementi della matrice Matrix nella finestra 
Immediate. Questa operazione richiama la procedura vi - 
sMatr() e passa i valori Matrix, 5 e 5, rispettivamente, agli 
argomenti Mat, Righe e Col. 


Uso e uscita dai cicli 


I cicli permettono alle applicazioni di iterare alcune opera- 
zioni fino a quando non viene soddisfatta una determinata 
condizione come, per esempio, l'avvio di conteggi sequen- 
ziali progressivi o regressivi. Un ciclo può prevedere di ri- 
portare il controllo all’inizio o alla fine di un programma 
oppure potrà prevedere un’uscita prematura dal program- 
ma stesso. 


Argomenti trattati 


vV Uso dei cicli per ripetere operazioni all’interno 
di un programma 


v Le condizioni e i modi per uscire da un ciclo 


v Ayvio di un ciclo dalla fine o dall’inizio 
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Ciclo Do Until 


Ciclo Do Until 
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Un ciclo Do Until è di tipo condizionale, ovvero avvia un’iterazio- 
ne di operazioni fino a quando una condizione predeterminata ri- 
sulta vera ed esamina le condizioni all’inizio del ciclo stesso. 


Vedi anche: in questa parte, la sezione che descrive i cicli Do - Loop 
Until. 


La sintassi generale per l’uso di un ciclo Do Until è la seguente. 


Do Until condizione 
enunciati 
Loop 


Questa sintassi prevede l’uso delle parole chiave Do e Until e la 
seconda viene immediatamente seguita dalla condizione da verifi- 
care. Se tale condizione risulta falsa già in fase di primo controllo, il 
ciclo non eseguirà gli enunciati immediatamente successivi. Infi- 
ne,il ciclo viene concluso dalla parola chiave Loop. 


Non si dimentichi di aggiornare il o i valori delle variabili utilizzate 
per verificare la condizione dell’enunciato del ciclo. In caso con- 
trario la condizione non verrà mai modificata e il ciclo eseguirà 
un’iterazione senza fine. 


Per maggiori informazioni sui cicli, si consulti il libro Visual Basic 6 
For Dummies di Wallace Wang (Apogeo, 1998). 


Viene ora proposto un esempio di uso di un ciclo Do Until. 


Private Sub Form Load( ) 
Dim Somma As Double 
Dim Num As Integer 
' inizializza le variabili 
Num = 1 
Somma = 0 
' aggiunge numeri dispari 
' compresi fra 1 e 99 
Do Until Num >= 100 
Somma = Somma + Num 
Num = Num + 2 
Loop 
Debug.Print Somma 
End Sub 


Il risultato di questo esempio visualizza, nella finestra Immediata il 
seguente risultato. 


2500 
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2500 corrisponde alla somma di tutti i numeri dispari interi com- 
presi tra 1 e 99. La procedura Form_Load( ) dichiara le variabili 
Somma di tipo Double e Num di tipo Integer e le inizializza, rispet- 
tivamente, a 0 e 1.La procedura quindi avvia un ciclo Do Until per 
aggiungere alla variabile Somma valori interi dispari compresi fra 1 
e 99.Il ciclo verifica la condizione Num >= 100 per interrompere le 
proprie iterazioni quando il valore della variabile Num supera il 
100.Il ciclo contiene due enunciati: il primo aggiunge il valore del- 
la variabile Num alla variabile Somma mentre il secondo aggiunge 2 
alla variabile Num per memorizzare nella stessa il successivo valore 
dispari. 


Ciclo Do While 


Il ciclo Do While è di tipo condizionale e avvia un’iterazione fin- 
tanto che la condizione verificata risulta vera. Questo tipo di ciclo 
esamina la condizione all’inizio del ciclo stesso. 


La sintassi generale di questo ciclo è la seguente. 


Do While condizione 
enunciati 
Loop 


In questa sintassi appaiono le parole chiave Do e While e la secon- 
da deve essere necessariamente seguita da una condizione da ve- 
rificare. Se la condizione risulta falsa già in fase di prima verifica, il 
ciclo non esegue gli enunciati indicati. La parola chiave Loop, infi- 
ne conclude l’iterazione. 


Non si dimentichi di aggiornare il o i valori delle variabili utilizzate 
per verificare la condizione dell’enunciato del ciclo. In caso con- 
trario la condizione non verrà mai modificata e il ciclo eseguirà 
un’iterazione senza fine. 


Ed ecco un esempio per l’utilizzo di un ciclo Do While. 


Private Sub Form Load( ) 

Dim Somma As Double 
Dim Num As Integer 
' inizializza le variabili 
Num = i 
Somma = 0 
' aggiunge numeri dispari 
' compresi tra 1 e 99 
Do While Num < 100 

Somma = Somma + Num 

Num = Num + 2 
Loop 
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Debug.Print Somma 
End Sub 


Questo esempio visualizza, nella finestra Immediata il seguente va- 
lore: 


2500 


2500 corrisponde alla somma di tutti i numeri dispari compresi tra 
1 e 99.La procedura Form_Load( ) dichiara la variabile Somma di 
tipo Double e la variabile Num di tipo Integer e le inizializza, rì- 
spettivamente, a 0 e 1.La procedura quindi avvia un ciclo Do While 
per aggiungere alla variabile Somma i valori dispari interi compresi 
tra 1 e 99. Il ciclo verifica la condizione Num < 100 ed esegue le 
iterazioni fino a che il valore della variabile Num sarà inferiore a 
100.Il ciclo contiene due enunciati: il primo aggiunge il valore del- 
la variabile Num alla variabile Somma mentre il secondo aggiunge 2 
al valore della variabile Num per memorizzare nella stessa il succes- 
sivo numero dispari. 


Ciclo Do-Loop Until 


<SENZIO, Ue, 


Il ciclo Do-Loop Until è di tipo condizionale e viene ripetuto fino 
a quando la condizione risulta vera. Questo tipo di ciclo esamina la 
condizione alla fine del ciclo. 


Vedi anche: in questa parte, la sezione che descrive il ciclo Do 
Until. 


La sintassi generale per l’uso di questo ciclo è la seguente. 


Do 
enunciati 


Loop Until condizione 


Questa sintassi utilizza inizialmente la parola chiave Do seguita da 
uno o più enunciati. Il ciclo si conclude con le parole chiave Loop 
Until seguite, ‘immediatamente dopo, dalla condizione da verifica- 
re. Se la condizione risulta falsa già alla prima verifica, il ciclo ese- 
gue una sola volta quanto richiesto dagli enunciati. 


Non si dimentichi di aggiornare il o i valori delle variabili utilizzate 
per verificare la condizione dell’enunciato del ciclo. In caso con- 
trario la condizione non verrà mai modificata e il ciclo eseguirà 
un’iterazione senza fine. 


Viene ora proposto un esempio per l’uso del ciclo Do-Loop Until. 
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SEM, Private Sub Form Load( ) 
Dim Somma As Double 
Dim Num As Integer 
' inizializza le variabili 
Num = 1 
Somma = 0 
' aggiunge numeri dispari 
' compresi tra 1 e 99 
Do 
Somma = Somma + Num 
Num = Num + 2 
Loop Until Num >= 100 
Debug.Print Somma 
End Sub 


Il risultato di questo esempio è la visualizzazione, nella finestra 
Immediate del seguente risultato. 


2500 


2500 corrisponde alla somma di tutti i numeri dispari compresi tra 
1 e 99.La procedura Form_Load( ) dichiara la variabile Somma di 
tipo Double e la variabile Num di tipo Integer e le inizializza, 
rispettivamente, a 0 e 1. La procedura, quindi, avvia un ciclo Do - 
Loop Until e aggiunge alla variabile Somma valori interi dispari 
compresi tra 1 e 99.Il ciclo verifica la condizione Num >= 100 posta 
alla fine del ciclo stesso e interrompe le iterazioni quando il valore 
della variabile Num eccede 100.Il ciclo contiene due enunciati: il 
primo aggiunge al valore della variabile Somma il valore della varia- 
bile Num mentre il secondo aggiunge 2 al valore della variabile Num 
in modo da memorizzare nella stessa il successivo valore dispari. 


Ciclo Do-Loop While 


Il ciclo Do-Loop While è di tipo condizionale che esegue un’itera- 
zione mentre una determinata condizione risulta vera. Questo tipo 
di ciclo esamina la condizione alla fine del ciclo. 


La sintassi generale per l’uso di questo tipo di ciclo è la seguente. 


Do 
enunciati 


Loop While condizione 


Questa sintassi utilizza la parola chiave Do iniziale seguita da uno 
o più enunciati.Il ciclo si conclude con le parole chiave Loop Whi - 
le seguite dalla condizione da verificare. 


212  Evit Do 


Se tale condizione risulta falsa già alla prima verifica, gli enunciati 
definiti dal ciclo vengono eseguiti una sola volta. 


Non si dimentichi di aggiornare il o i valori delle variabili utilizzate 
per verificare la condizione dell’enunciato del ciclo. In caso con- 
trario la condizione non verrà mai modificata e il ciclo eseguirà 
un’iterazione senza fine. 


Viene ora proposto un esempio per l’uso del ciclo Do-Loop While. 


Private Sub Form Load( ) 
Dim Somma As Double 
Dim Num As Integer 
' inizializza le variabili 
Num = 1 
Somma = Q 
' aggiunge numeri dispari 
' compresi tra 1 e 99 
Do 
Somma = Somma + Num 
Num = Num + 2 
Loop While Num < 109 
Debug .Print Somma 
End Sub 


Ù 


Il risultato di questo esempio è la visualizzazione, nella finestra Im- 
mediata del seguente risultato. 


2500 


2500 corrisponde alla somma di tutti i numeri dispari compresi tra 
1 e 99.La procedura Form _Load( ) dichiara la variabile Somma di 
tipo Double e la variabile Num di tipo Integer e le inizializza, 
rispettivamente, a 0 e 1. La procedura, quindi, avvia un ciclo Do- 
Loop While e aggiunge alla variabile Somma valori interi dispari 
compresi tra 1 e 99.Il ciclo verifica la condizione Num < 100 posta 
alla fine del ciclo stesso ed esegue le iterazioni fintanto che il valo- 
re della variabile Num è inferiore a 100.Il ciclo contiene due enun- 
ciati:il primo aggiunge al valore della variabile Somma il valore del- 
la variabile Num mentre il secondo aggiunge 2 al valore della varia- 
bile Num in modo da memorizzare nella stessa il successivo valore 
dispari. 


Exit Do 


Visual Basic consente di uscire sempre da un ciclo di tipo “Do” uti- 
lizzando l’enunciato Exit Do.In un ciclo possono essere inseriti 
più enunciati Exit Do e, di solito, per valutare una condizione che 
esegue l’enunciato Exit Do, si utilizza un enunciato If nel quale 


ExitFor 2 13 


Exit Do trasferisce l'esecuzione del programma all’enunciato im- 
mediatamente successivo l’enunciato Loop. 


La sintassi generale per l’enunciato Exit Do è la seguente. 


Exit Do 


Viene ora proposto un esempio pratico per l’uso dell’enunciato. 


Dim I As Integer 

Dim X As Double 

I=5 

Do While I > = -5 
X = Sqr(I) ' calcola | 
Debug.Print X | 
T=e Tg +1 
If I < 0 Then Exit Do 

Loop 


Questo esempio dichiara le due variabili I di tipo Integer e X di 
tipo Double. L'esempio inizializza la variabile I assegnandole il va- 
lore 5 e avvia un ciclo Do While per avviare le iterazioni fino a 
quando la variabile I è maggiore o uguale a —5.Il primo enunciato 
assegna alla variabile X il valore della radice quadrata della varia- 
bile I e visualizza il valore risultante nella finestra Immediata.Il ter- 
_ zo enunciato del ciclo diminuisce di 1 il valore della variabile I 
mentre l’ultimo enunciato del ciclo è un enunciato If che determi- 
na se il valore della variabile I è negativo. Se questa condizione è 
vera, il codice esegue l’enunciato Exit Do per uscire dal ciclo. 


Exit For 


Visual Basic consente di uscire da un ciclo di tipo “For”, prima che 
le variabili di controllo del ciclo raggiungano il valore definito da 
To, tramite l’enunciato Exit For.In un ciclo si possono usare più 
enunciati Exit For e, di solito, per valutare la condizione che ese- 
gue un enunciato Exit For si utilizza un enunciato If.L’enunciato 
Exit For trasferisce l'esecuzione del programma all’enunciato im- 
mediatamente precedente la parola chiave Next. 


La sintassi generale per l’uso di Exit For è la seguente. 


Exit For 


L'esempio qui proposto indica un modo per l'utilizzo di Exit For. 


Dim I As Integer 
Dim X As Double 

For I = 5 To -5 Step -1 
If I < 0 Then Exit For 
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X = Sqr(I) ‘' calcola 
Debug.Print X 
Next I 


L'esempio dichiara la variabile I di tipo Integer e la variabile X di 
tipo Double e contiene un ciclo For a conteggio regressivo che ese- 
gue un’iterazione fra i valori compresi tra 5 e —5. La variabile di 
controllo del ciclo è la variabile I. 


Il primo enunciato del ciclo è un enunciato If che determina se la 
variabile di controllo del ciclo è negativa. Se questa condizione è 
vera, il codice esegue l’enunciato Exit For per uscire dal ciclo. In 
caso contrario il ciclo assegna la radice quadrata della variabile di 
controllo del ciclo alla variabile x e, quindi, visualizza nella finestra 
Immediata il valore di tale variabile. Il ciclo For esegue le proprie 
iterazioni da 5 a 0. 


Ciclo For 


Il ciclo For avvia un’iterazione per un numero predeterminato di 
volte. Questo ciclo si serve di una variabile speciale chiamata varia- 
bile di controllo del ciclo (o contatore del ciclo) che viene utilizzata 
per gestire il numero delle iterazioni del ciclo.L'enunciato del ciclo 
può usare il contatore nei seguenti modi. 


+ Comevariabile che viene modificata a ogni iterazione. 


+  Comeindice di una matrice alla quale il ciclo possa accede- 
re. 


+ Come sistema di controllo delle iterazioni del ciclo. 
La sintassi generale del ciclo For è la seguente. 


For contatore = inizio To fine [Step passo] 
[ enunciati] 
[ Exit For 
[ enunciati] 

Next [contatore]. 


contatore è la variabile di controllo del ciclo (o contatore del 
ciclo) e deve essere un valore numerico. Le parti inizio e fine 
corrispondono ai valori iniziale e finale del contatore dei ciclo e 
specificano, rispettivamente, il valore iniziale e finale del ciclo stes- 
so. Di solito, il valore di inizio dovrebbe essere inferiore o uguale 
a quello di fine e la clausola facoltativa passo definisce l’ammon- 
tare della modifica del valore del contatore del ciclo dopo ogni 
iterazione. L'incremento di default per il contatore del ciclo viene 
automaticamente impostato a 1 dopo ogni iterazione. 
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Quando il valore di passo è negativo, il ciclo eseguirà un conteggio 
di tipo regressivo e il valore di inizio dovrebbe, in questo caso, 
essere superiore a quello definito per fine.L'indicazione facoltati- 
va di Exit loop consente di uscire prematuramente dal ciclo di 
iterazioni prima che il contatore abbia raggiunto il valore fine. 


L'enunciato Next specifica la fine del ciclo For e se in questo enun- 
ciato si omette di indicare il contatore del ciclo, l'esecuzione del pro- 
gramma continuerà come se il contatore fosse stato indicato. 


Nota. | cicli For sono ideali per l'elaborazione di elementi di una 
matrice. Le variabili di controllo del ciclo vengono utilizzate come 
indici per accedere alla matrice stessa. 


Per maggiori informazioni sui cicli For, si consulti il libro Visual Ba- 
sic 6 For Dummies di Wallace Wang (Apogeo, 1998). 


Qui di seguito viene ora fornito un esempio dell'uso di un ciclo 
For. 


Private Sub Form Load( ) 
Dim I As Integer 
Dim Somma As Double 
' inizializza Somma 
Somma = 0 
For I = 1 To 100 Step 2 

Somma = Somma + 1 

Next I 
Debug.Print Somma 

End Sub 


Il risultato di questo esempio è la visualizzazione, nella finestra Im- 
mediata, del seguente valore: 


2500 


2500 corrisponde alla somma di tutti i numeri dispari compresi tra 
1 e 99. La procedura Form_Load( )dichiara la variabile Somma di 
tipo Double e la variabile I di tipo Integer assegnando quindi alla 
variabile Somma il valore 0. La procedura utilizza quindi un ciclo 
For per aggiungere alla variabile Somma un valore dispari compreso 
tra 1 e 99; il ciclo si serve quindi della variabile I utilizzandole come 
contatore e avvia le iterazioni da 1 a 100, con un incremento di 2. 
Ciò significa che la variabile I inizia con il valore 1 (il primo nume- 
ro dispari nell’intervallo da 1 a 100) e a ogni iterazione viene modi- 
ficata incrementandone il valore di 2.Il ciclo contiene un solo enun- 
ciato che aggiunge la variabile Num al valore della variabile Somma. 


MOLINARO TIRI A IE MEVAIO RA LOPE 
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Cielo For Each 


gNTASg, 


Il ciclo For Each consente di ripetere uno o più enunciati per ogni 
elemento di una matrice o di una collezione di oggetti. 


La sintassi generale del ciclo For Each è la seguente. 


For Each elemento In gruppo 
[_ enunciati] 
[ Exit For] 
[ enunciati] 

Next [elemento] 


elemento è una variabile utilizzata per avviare l’iterazione degli ele- 
menti di un gruppo o di una matrice. Nel caso di un gruppo, ele - 
mento può essere solo una variabile di tipo Variant, una variabile 
oggetto generica o una qualsiasi variabile oggetto specificata. Nel 
caso delle matrici, elemento può essere solo una variabile di tipo 
Vvariant.La voce gruppo corrisponde al nome di una collezione di 
oggetti o di una matrice (con l'eccezione di una matrice con tipo 
di dati definiti dall’utente).Il programma esegue gli enunciati del 
ciclo For Each solo nel caso in cui gruppo preveda la presenza di 
almeno un elemento. 


L’enunciato Exit For consente di uscire prematuramente dal ci- 
clo, tenendo presente che un ciclo può contenere più di un enun- 
ciato Exit For.Dopola parola chiave Next si può evitare di indica- 
re elemento. 


Ed ecco un esempio dell'uso del ciclo For Each. 


Private Sub Form Load( ) 
Dim Numeri(50) As Integer 
Dim I As Integer 
Dim Num As Variant 


' assegna numeri casuali alla matrice 
For I = LBound(Numeri) To Ubound(Numeri) 
Numeri(I) = 1000 * Rnd( ) 
Next I 
' ricerca un valore che sia inferiore a 100 
For Each Num In Numeri 
If Num < 100 Then 
Debug.Print Num 
End If 
Next Num 
End Sub 


Il risultato di questo esempio visualizza, nella finestra Immediata, i 
51 numeri casuali che sono inferiori a 100. 
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La procedura Form_Load( ) dichiara la matrice Numeri composta 
da 50 elementi e dichiara la variabile I di tipo Integer e la variabi- 
le Num di tipo Variant. La procedura utilizza quindi un ciclo For 
assegnando agli elementi della matrice Numeri valori casuali (com- 
presi nell'intervallo da 0 a 999).Viene poi utilizzato il ciclo For Each 
per eseguire un’iterazione sugli elementi della matrice Numeri. Il 
ciclo utilizza la variabile Num per accedere agli elementi della ma- 
trice. Lo stesso ciclo contiene l’enunciato If-Then che visualizza 
nella finestra Immediate il valore della variabile Num, sempre che 
questo sia inferiore a 100. 


Per maggiori informazioni sui cicli For Each, si consulti il libro Vi- 
sual Basic 6 For Dummies di Wallace Wang (Apogeo, 1998). 
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Terminologia Tecnica 


ActiveX 
Un nuovo nome per definire un controllo OLE. 


Argomento 
Dati trasferiti a una procedura o a una funzione. 


Array 


Variabile che memorizza valori multipli. 


ASCII 


Acronimo di American Standard Code for Information 
Interchange. Il codice numerico che rappresenta un ca- 
rattere. Per esempio, il carattere “A” corrisponde al codice 
ASCII 65. 


Barra dei menu 


Finestra speciale che riporta un gruppo di menu. Ogni 
menu prevede una serie di propri comandi correlati ai 
quali l'utente potrà accedere aprendo il menu facendo 
clic sul suo nome oppure utilizzando un tasto accelera- 
tore. 


Bitmap 
Formato per immagini grafiche che consiste 


in una serie di bit che traccino una “mappa” 
dell'immagine stessa. 


Booleano 


Sinonimo di logico.]l termine proviene dal nome del ma- 
tematico George Boole.I valori booleani possono essere 
“vero” o “falso”. 


Chiamata di funzione 


Porzione di codice che richiama una funzione passando 
valori agli argomenti della stessa. 
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Ciclo 
Vedi Loop. 


Classe 


Tipo speciale di tipo di dati definito dall’utente che rappresenta gli 
attributi e le operazioni di una categoria di oggetti. Una classe, di 
solito, contiene elementi dati e procedure (vale a dire, procedure e 
funzioni). 


Comando di menu 
Comando accessibile dalla barra dei menu. 


Concatenazione 
Combinazione di due o più stringhe. 


Condizione 
Espressione logica che può assumere i valori “vero” e “falso”. 


Contatore loop 


Variabile che controlla il numero di iterazioni in un loop. Sinonimo 
di variabile di controllo del loop. 


Controllo 

Componente Visual Basic al quale sono associate proprietà e che 
risponde agli eventi. Di solito, un controllo è visibile anche se, a 
volte, può essere definito come nascosto. 


Convenzione standard per i nomi 

Convenzione utilizzata per assegnare un nome agli elementi di un 
linguaggio di programmazione. La convenzione standard di Visual 
Basic richiede che un nome inizi sempre con un carattere alfabeti- 
co seguito da altri caratteri alfanumerici o da caratteri “”.I nomi di 
Visual Basic non riconoscono l’uso di caratteri maiuscoli o minu- 
scoli. 


Costante 

Identificatore (vale a dire un nome che deve seguire le convenzio- 
ni per l'assegnazione dei nomi in Visual Basic) associato con un 
valore che rimane invariato nel corso dell’esecuzione di un pro- 
gramma. 


Design time 
Si riferisce a un applicativo Visual Basic in fase di progettazione. 
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DHTML 


HTML (HyperText Markup Language) Dinamico è una versione 
avanzata dell’HTML che supporta gli oggetti dinamici. 


Elemento dati 


Membro di una classe o struttura che memorizza un attributo o un 
valore di un oggetto. 


Elemento della matrice 


Un singolo valore di una matrice, al quale si accede utilizzando 
uno o più indici. 


Enumeratore 


Nome (associato a un valore fisso) che viene dichiarato in un tipo 
di dati enumerato. 


Enumerazione 
Il processo in base al quale si crea un tipo di dati enumerato. 


Enunciato |f 


Enunciato in base al quale vengono prese delle decisioni e che 
fornisce alternative singole o multiple. 


Esecuzione 


Fa riferimento al momento nel quale si avvia un’applicazione Vi- 
sual Basic. 


Espressione 
Serie di operatori e valori che generano un unico risultato. 


Etichetta (Label) 


Sinonimo di controllo di testo statico. 


Evento 


Azione (come, per esempio, il clic del mouse) al quale un controllo 
deve rispondere. 


File .BAS. 


Tipo di file nel quale vengono memorizzati i moduli Visual Basic. 
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File .BMP 


Tipo di file destinato alla memorizzazione di immagini grafiche 
bitmap. 


File .CLS 


Tipo di file che memorizza i moduli di classe di Visual Basic. 


File .FRM 


File destinati a contenere i form Visual Basic. 


File .HP] 


Tipo di file che memorizza le informazioni per la gestione dei file 
del sistema di guida. 


File - VBP 


Tipo di file che memorizza i progetti Visual Basic. 


File Modulo 


File contenente una libreria di procedure, funzioni, costanti globali, 
variabili e matrici. Un modulo principale o altri moduli possono 
condividere parti pubbliche di un file modulo. 


Finestra di dialogo “Common dialog” 


Una finestra di dialogo fornita da Windows 9x per l'esecuzione di 
alcune operazioni comuni a tutte le applicazioni. Le finestre di dia- 
logo “Common dialog” sono, per esempio, quelle per l'apertura o il 
salvataggio dei file, per la modifica del tipo di carattere, per la stam- 
pa dei documenti e per l’accesso al sistema di guida. 


Finestra Immediata (Finestra di debug) 


Chiamata a volte Finestra di debug corrispondente all'oggetto De- 
bug di Visual Basic. Di solito per visualizzare elementi in questa 
finestra, si usa il comando Debug.Print. 


Finestra Watch (Espressioni di Controllo) 


Finestra che consente di osservare i valori correnti delle variabili di 
un programma Visual Basic. 


Form 

Finestra speciale nella quale si possono disegnare i vari controlli.I 
moduli sono l'elemento centrale per la creazione di finestre per 
l'interfaccia utente delle applicazioni Visual Basic. 
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Funzione 
Porzione di codice che esegue operazioni e restituisce un risultato. 


Funzione ricorsiva 

Funzione che richiama se stessa per generare un valore. Una fun- 
zione di questo tipo deve interrompere la propria chiamata quan- 
do una determinata condizione risulta vera. Ciò eviterà di avviare 
una chiamata infinita di funzione. Quello che segue è un esempio 
di funzione ricorsiva che calcola un numero fattoriale. 


Si osservi che la funzione interrompe la propria ricorsività quando 
il valore dell'argomento è inferiore a 1 


Function Fattoriale (N As Integer) 
If N > 1 Then 
Fattoriale = Fattoriale (N - 1) 
Else 
Fattoriale 
End If 
End Function 


Il 


1 


Gestore di evento 


Procedura che risponde a un evento, quale, per esempio, un clic del 
mouse. 


Identificatore 


Nome di una componente di un programma come, per esempio, il 
nome di una costante o di una variabile. 


Iterare 


Eseguire un’operazione ripetutamente. Visual Basic utilizza i cicli 
per eseguire operazioni iterative. 


Label 
Vedi: Etichetta. 


Letterale 


Indica elementi di tipo letterale (sotto forma di stringa) quali, per 
esempio “Io”,“10” o “Giovanni”. 


Loop 


Parte di un programma che consente di ripetere una o più volte 
(iterare) una o più operazioni. 
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Loop Do Until 
Un loop che esegue iterazioni fino a quando una condizione risul- 
terà vera. 


Loop Do While 


Loop che esegue iterazioni mentre una condizione risulta vera. 


Loop For 


Loop che, di solito, esegue le iterazioni per un numero fisso di volte. 


Matrice (Array) 


Tipo di variabile speciale che memorizza più valori. 


MDI 


Acronimo di Multiple Document Interface. MDI si riferisce a un tipo 
di applicazione che consente di aprire e operare contemporanea- 
mente su più documenti. Microsoft Word è un esempio di applica- 
zione MDI. 


Membro statico 
Variabile locale che mantiene invariato il proprio valore tra una 
chiamata di procedura e l’altra. 


Menu 
Insieme di comandi che appare sulla Barra dei menu. 


Metodo 


Procedura o funzione speciale associata a un modulo, controllo od 
oggetto. 


Modale 


Stato di una finestra di dialogo che richiede che l'utente chiuda la 
finestra di dialogo prima di accedere a un’altra finestra dello stesso 
programma. Opposto di “Non modale”. 


Modulo classe 
Modulo che definisce e implementa una classe Visual Basic. 


Non Modale 

Stato di una finestra di dialogo che consente all'utente di accedere 
ad altre finestre della stessa applicazione anche nel caso in cui 
un’altra finestra non modale risulta aperta. Opposto di “Modale”. 
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Numero a virgola mobile 


Numero composto da una parte intera e da una parte frazionaria.Il 
numero 10,34 è un esempio di numero a virgola mobile, ovvero 10 
e 34 centesimi. 


0DBC 


Acronimo di Open Data Base Connectivity, tecnologia per l’accesso 
al motori database. 


Oggetto 


Istanza di una classe. Per esempio, un particolare modello di com- 
puter IBM è un oggetto e un'istanza della classe dei computer IBM. 


OLE 


Acronimo di Object Linking and Embedding. Si tratta di una funzio- 
ne di programmazione che è in grado di riconoscere i controlli 
ActiveX e consente di incorporare o collegare altri documenti al- 
l'interno di un documento contenitore. 


Operatore 
Simbolo o nome che utilizza un valore e genera un risultato. Per 


esempio, il simbolo “+” corrisponde all’operatore per la somma. Il 
nome Mod corrisponde all’operatore “modulo” per la divisione di 


valori interi con resto. 


Option Base 


Enunciato che imposta il valore minimo di default di un indice di 
una matrice. L'indice minimo di default può essere 0 oppure 1.Vi- 
sual Basic imposta per default Option Base al valore 0. 


Presa di decisioni 


Capacità di una procedura di esaminare una condizione ed ese- 
guire un'azione in base al fatto che la condizione sia o meno vera. 
Per esempio, un programma di questo tipo può essere in grado di 
reperire un file, aprirlo e leggerne i dati e, nel caso in cui il file non 
possa essere reperito, visualizzare un messaggio di errore che indi- 
chi che il programma non è stato in grado di trovare il file. 


Private 

Tipo di elemento dati o procedura alla quale si può accedere solo 
dall'interno del modulo o della classe utilizzato per la dichiarazio- 
ne dell'elemento. Opposto di “Public”. 
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Procedura 


Termine comunemente utilizzato per indicare una subroutine o una 
funzione. 


Progettazione 


Si riferisce alla fase nella quale Visual Basic non viene utilizzato e 
descrive il momento in cui si progetta un form. 


Proprietà 
Attributo di un controllo o di un oggetto. 


Public 


Tipo di elemento dati o di procedura alla quale si può accedere 
anche da altri moduli o classi. Opposto di “Private”. 


Pulsante di opzione 


Controllo di Visual Basic composto da un’etichetta e da un elemento 
circolare.Quando si seleziona un pulsante di opzione, nell’elemen- 
to circolare viene riportato un pallino nero. L'assenza di un pallino 
nero all’interno di un pulsante di opzione indica che l'opzione stes- 
sa non è attiva. 


Routine 


Termine comunemente utilizzato per definire una procedura o una 
funzione. 


Run time 
Si riferisce a un applicativo Visual Basic in esecuzione. 


Select Case 
Enunciato che consente di prendere in considerazione più alterna- 
tive, 


SOL 
Acronimo di Structured Query Language, linguaggio di interroga- 
zione per i database. 


Stringa 
Una serie di caratteri testuali. 


Stringa a lunghezza fissa 
Stringa che può memorizzare solo fino a un numero specificato di 
caratteri. 
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Stringa a lunghezza variabile 
Stringa che può memorizzare un numero di caratteri variabile. 


Struttura 
Tipo di dati definito dall'utente che dichiara uno o più elementi. 


Sub 


Parola chiave utilizzata per dichiarare una procedura. 


Subroutine 


Porzione di codice che esegue un'operazione all’interno di un co- 
dice globale.Subroutine viene anche utilizzato per indicare funzio- 
ni o procedure. 


Tasto acceleratore (Hot Key) 


Carattere che richiama un menu o un comando di menu, di solito 
prevede l’associazione al tasto Alt. 


Tipo di dati 


Categoria di informazioni, come numeri interi, caratteri, stringhe e 
numeri a virgola mobile o di tipo personalizzato. 


Tipo enumerato 


Tipo di dati definito dall’utente che contiene un elenco di nomi 
chiamati enumeratori.Ogni enumeratore corrisponde a una costante 
associata a un valore, il tipo enumerato consente di dichiarare una 
serie di costanti che descrivono i vari valori fissi o gli stati di un 
oggetto. Per esempio, si può dichiarare un tipo enumerato che defi- 
nisca i giorni della settimana. 


Twip 
Unità di misura grafica. 1440 twip corrispondono a un pollice (25,4 
mm) e 567 twip corrispondono a 1 cm. 


Valore dell'argomento 


Valore fornito all'argomento di una procedura o di una funzione 
quando la routine chiama questa procedura o funzione. 


Valore dell'argomento dì default 


Un valore di default associato a un argomento. Se si omette un valo- 
re specifico per un determinato argomento che prevede l’applica- 
zione di un valore di default,il computer automaticamente utilizza 
il valore di default. i 
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Variabile 


Identificatore (nome soggetto alle convenzioni per l'assegnazione 
dei nomi di Visual Basic) associato a un valore che può essere 
modificato nel corso dell'esecuzione di un programma. 


Variabile di controllo del loop 


Variabile che controlla il numero di iterazioni di un loop. Sinonimo 
di contatore Loop. 


Variabile dinamica 


Variabile, struttura od oggetto che viene creato in fase di esecuzio- 
ne utilizzando l'operatore New. 


Indice analitico 


A 


Applicazione 
MDI 187 
Array 
Matrice 195 


B 


Barra dei menu 2 


C 


Classe 
Uso 68 
Cicli 207 
Ciclo 
Condizionale 208 
For Each 216 
Uscita da loop “Do” 212 
Uscita da loop “For” 213 
Variabile di controllo 214 
Classe 
Creazione evenienza 
Sintassi 68 
Dichiarazione 65 
Elementi dati 65 
Elemento dati 
Dichiarazione 65 
Memorizzazione 65 
Contatore del ciclo 
Ciclo 
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Controllo 


Barra di scorrimento (Scroll Bar) 


Evento 49 
Orizzontale 48 

Casella combinata 
Evento Change 33 
Evento DblClick 33 
Evento Scroll 33 
Metodo AddItem 32 
Metodo Clear 32 
Metodo Removeltem 32 
Proprietà List 31 
Proprietà ListCount 31 
Proprietà ListIndex 31 
Proprietà Sorted 31 
Proprietà Style 31 
Proprietà Text 32 

Casella di controllo 27 
Proprietà 28 

Casella di testo (Text Box) 
Proprietà 54, 55 

Casella figura 
Proprietà 123 

Copia 5 

Deselezione 13 

Disegno 11 

Elenco cartelle 112 
Proprietà 112 

Elenco di voci (List Box) 
Evento 42 
Proprietà 40 

Elenco dischi 114 
Proprietà 114, 115 

Eliminazione 10 

Etichetta 
Controllo 51 

File List Box 116 
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Proprietà 116 
Forma 126 

Proprietà 126, 127 
Immagine 

Proprietà 119 
Incolla 5 
Proprietà 

A selezione assistita 7 
Pulsante di comando 26 

Proprietà 27 


Pulsante di opzione (Option Button) 


Proprietà 45, 46 
Selezione multipla 14 
Spostamento 12 
Temporizzatore 

Proprietà 131 
Testo statico (Static Text) 

Proprietà 52 

Costante 69 
Dichiarazione 69 
Sintassi 69 


E 


Enul (enunciato) 62 
Enunciato 
Exit Function 148 
Sintassi 148 
Exit Sub 149 
Sintassi 149 
If-Then Else 141 
On Error 139 
Resume 142 
Sintassi 143 
Select Case 145 
Errore 
Generatore di 136 
Exit Function 148 
Exit Sub 149 


F 


File 


.BAS (Componenti di un modulo) 21 


.CLS (Classe) 65 


.DOB (Documenti utente) 21 


.FRM (Moduli [Form]) 20 


.PAG (Pagine di progetto) 21 
.VBP (File di progetto) 18 


File di progetto 18 
Finestra di dialogo 79 


Apri (Open) 99 
Apri/Salva con nome 
Proprietà 99, 100, 101, 102 
Colore 80 
Proprietà 80 
Font 83 
Proprietà 83, 84, 85 
Proprietà 84 
Visualizzazione 83 
Help (Guida) 88 
Proprietà 88, 89, 90 
Messaggio 
Pulsanti 95, 96, 97 
Messaggio modale 95 
Messaggio non modale 95 
Messagio 
Pulsanti 96 
Salva con nome (Save As) 99 
Stampa 
Proprietà 105, 106, 107 


Finestra di diologo 


Help (Guida) 
Proprietà 89 


Funzione 151 


Argomento 
ByRef 152 
ByVal 152 
nomeVar 152 
Optional 152 
ParamArray 152 
Tipo 152 
valoreDefault 152 
Date) 7 
Esempio 7 
Sintassi 7 
Day0 8 
Esempio 8 
Sintassi 8 
Dichiarazione 151 
Friend 151 
Private 151 
Public 151 
Static 151 


InStr) 165 
Sintassi 165 
InstrRev() 167 
Sintassi 167 
LBound() 196 
LCase) 170 
Sintassi 170 
Left) 169 
Sintassi 169 
Len) 170 
Sintassi 170 
LTrimO) 171 
Sintassi 171 
Mid) 172 
Sintassi 172 
Month0 
Esempio 8 
Sintassi 8 
Now() 9 
Esempio 9 
Sintassi 9 
Replace() 173 
Sintassi 173 
RightO 174 
Sintassi 174 
RTrim0) 171 
Sintassi 171 
StrReverse() 176 
Sintassi 177 
TriimQ 171 
Sintassi 171 
UBound() 196 
UCase() 177 
Sintassi 177 
Weekday0) 9 
Costante vbFriday 9 
Costante vbMonday 9 
Costante vbSaturday 9 
Costante vbSunday 9 
Costante vbThursday 9 
Costante vbTuesday 9 
Costante vbUseSystem 9 
Costante vb Wednesday 9 
Esempio 10 
Sintassi 9 
Year) 10 
Esempio 10 
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Hour) 14 
Esempio 14 
Sintassi 14 


| 


i-Then Else 141 
Immediate 
Finestra 
Visualizzazione 16 
InputBox() 
Funzione 91 
Sintassi 92 
InStrO 
Funzione 
InStrO) 165 
InstrRev() 
Funzione 
InstrRev() 167 


L 


LBound() 
Funzione 
LBound() 196 
LCase() 
Funzione 
LCase() 170 
Left) 
Funzione 
LeftO) 169 
Len) 
Funzione 
Len) 170 


Librerie a Link Dinamico. Vedi Vedi DLL 


LTrimO 
Funzione 
LTrim0 171 


M 


Matrice 195 
Bidimensionale 195 
Copia 199 
Dichiarazione 200, 201 
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Monodimensionale 195, 201 
Accesso 198 
Dichiarazione 201 

Multidimensionale 195 
Accesso 196 
Accesso a indice 196 
Dichiarazione 200 

Tridimensionale 195 

Menu 

Aggiunta 2 

Comando 2 

Creazione comando 3 

Creazione nuova voce 2 

Editor 11 

Eliminazione 11 

Inserimento riga separatrice 3 

Spostamento 12 

Menu Editor 
Richiamo 12 
Menu File 

New project 18 

Save Project As 19 
Menu file 

Save Project 19 
Menu Format 
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Bottoms 5 
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to Grid 5 
Tops 5 

Menu Project 

Add Class Module 19 

Add File 20 

Add Form 19 

Add MDI Form 19 

Add Module 19 

Add Property Page 19 

Add User Control 19 

Add User Document 19, 20 

Menu View 
Immediate Windows 16 
Properties 6 

Mid0) 

Funzione 
Mid() 172 

Minute) 
Esempio 15 


Sintassi 15 
Modulo 
MDI (Multiple Document Interface) 
19 
MDI dipendente 
Chiusura 183 
Menu 187 
Sistemazione 181 
MDI principale 180, 187 
Gestione 187 
MsgBox) 
Funzione 94, 97 
Sintassi 94 
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vbIgnore 97 
vbNo 97 
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vbYes 97 


N 


New project 
Finestra 18 
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0 


Oggetto 
Err 
Codici errore 137 
Proprietà 136 
On Error 139 
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- (sottrazione) 67 
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Mod 67 
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And 71 
Eqv 71 
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Xor 71 
Operatore relazionale 72 
= 72 
Is 72 
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Maggiore di 72 
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operatore relazionale 
Minore di 72 
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Parametro 152, 156 
Print 
Argomento 
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Procedura 155 
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Raise() 
Metodo 136 
Sintassi 136 
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Funzione 
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Funzione 
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RTrimQ 
Funzione 
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Esempio 15 
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Stringa 161, 175 
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Ctrl+V (Incolla) 6 
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Finalmente un libro semplice, chiaro 
e divertente per capire Visual Basic 6 


I piccoli manuali per comprendere l'informatica 


Una guida di facile consultazione, concisa 
e affidabile alla programmazione in Visual 
Basic 6. Tutte le informazioni necessarie 
per lo sviluppo di applicazioni Windows 
riunite in uno strumento di riferimento 
chiaro e completo. 


e Fondamenti di Visual Basic: controlli, 
proprietà e menu. 

* Creazione di classi e tipi di dati. 

* Utilizzo di finestre di dialogo, 
funzioni e procedure. 

* Risposte chiare a tutte le domande 
sul debug e la gestione degli errori. 

e Suggerimenti per l’utilizzo di stringhe, 
form, array e cicli. 

* Integrazione di Visual Basic con gli altri 
programmi di Visual Studio. 
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